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Notice 








Apple Computer, Inc. reserves the right to make improvements in the 
product described in this manual at any time and without notice. 


Disclaimer of All Warranties and Liabilities 





Apple Computer, Inc. makes no warranties, either express or implied, with 
respect to this manual or with respect to the software described in this 
manual, its quality, performance, merchantability, or fitness for any 
particular purpose. Apple Computer, Inc. software is sold or licensed ‘‘as 
is.” The entire risk as to its quality and performance is with the buyer. 
Should the programs prove defective following their purchase, the buyer 
(and not Apple Computer, Inc., its distributor, or its retailer) assumes the 
entire cost of all necessary servicing, repair, or correction and any 
incidental or consequential damages. In no event will Apple Computer, Inc. 
be liable for direct, indirect, incidental, or consequential damages resulting 
from any defect in the software, even if Apple Computer, Inc. has been 
advised of the possiblity of such damages. Some states do not allow the 
exclusion or limitation of implied warranties or liability for incidental or 
consequential damages, so the above limitation or exclusion may not apply 
to you. 


This manual is copyrighted. All rights are reserved. This document may 
not, in whole or part, be copied, photocopied, reproduced, translated or 
reduced to any electronic medium or machine readable form without prior 
consent, in writing, from Apple Computer, Inc. 


© 1982 by Apple Computer, Inc. 
20525 Mariani Avenue 
Cupertino, California 95014 
(408) 996-1010 


The word Apple and the Apple logo are registered trademarks of 
Apple Computer, Inc. 


Simultaneously published in the U.S.A and Canada. 


Warning 

This equipment has been certified to comply with the limits for a 
Class B computing device, pursuant to Subpart J of Part 15 of FCC 
Rules. Only peripherals (computer input/output devices, terminals, 
printers, etc.) certified to comply with the Class B limits may be 
attached to this computer. Operation with non-certified peripherals is 
likely to result in interference to radio and TV reception. 
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Radio and Television Interference 


The equipment described in this manual generates and uses radio- 
frequency energy. If it is not installed and used properly, that is, in 
strict accordance with our instructions, it may cause interference 
with radio and television reception. 


This equipment has been tested and complies with the limits for a 
Class B computing device in accordance with the specifications in 
Subpart J, Part 15, of FCC rules. These rules are designed to 
provide reasonable protection against such interference in a 
residential installation. However, there is no guarantee that the 
interference will not occur in a particular installation, especially if 
you use a “rabbit ear” television antenna. (A “rabbit ear’ antenna is 
the telescoping-rod type usually contained on TV receivers.) 


You can determine whether your computer is causing interference 
by turning it off. If the interference stops, it was probably caused 
by the computer or its peripheral devices. To further isolate the 
problem: 


e Disconnect the peripheral devices and their input/output cables 
one at a time. If the interference stops, it is caused by either 
the peripheral device or its I/O cable. These devices usually 
require shielded I/O cables. For Apple peripheral devices, you 
can obtain the proper shielded cable from your dealer. For non- 
Apple peripheral devices, contact the manufacturer or dealer 
for assistance. 


If your computer does cause interference to radio or television 
reception, you can try to correct the interference by using one or 
more of the following measures: 


e Turn the TV or radio antenna until the interference stops. 
e Move the computer to one side or the other of the TV or radio. 


e Move the computer farther away from the TV or radio. 


e Plug the computer into an outlet that is on a different circuit 
than the TV or radio. (That is, make certain the computer and 
the radio or television set are on circuits controlled by different 
circuit breakers or fuses.) 


e Consider installing a rooftop television antenna with coaxial 
cable lead-in between the antenna and TV. 


If necessary, you should consult your dealer or an experienced 
radio/television technician for additional suggestions. You may find 
helpful the following booklet, prepared by the Federal 
Communications Commission: 


“How to Identify and Resolve Radio-TV Interference Problems” 


This booklet is available from the U.S. Government Printing Office, 
Washington, DC 20402, stock number 004-000-00345-4. 
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— NEXT OBJECT 
FS00 
0000 





0000: 
0001 

0020 
0021 

0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 

002A 
002B 

o002c 

002C 

002D 
002D 
002E 
002E 
O02E. 
002F 
002F 
002F 

0030 
0031 

0032 
0033 
0034 
0035 
0036 
0037 
0033 
0039 
0034 
003B 

003C 

003D 
OO3E. 
003F 
0040 
0041 

0042 
0043 
0044 
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FERRER EASE EAE JERE ETE TEER AE SESE EERE EAE HE TE EEE 


APPLE II 
MONITOR IT 


COPYRIGHT 1978 BY 
APPLE COMPUTER, INC. 


ALL RIGHTS RESERVED 


STEVE WOZNIAK 


oR ROR RR Rk Rk Ok 


FERRE TEI AEE FE REE ETE AIEEE HEE HE HR EE HE EE 


MODIFIED NOV 1978 
BY JOHN A 


MODIFIED SEP 1981 

BY RICK AURICCHIO 
& BRYAN STEARNS 
FOR APPLE2E SOCOLS 


CHANGES MARKED BY ‘RRAO981’ 


oe ok OK ok ok ok Rok ok 


APPLE2E Eau 1 i COND ASSM/RRAOIS1 
* 

RETESET TER EE IE EEE HEE 

NAME IS BUS. SRC1. OBVO 


ORG $FS00 
OBU $2000 
HHA HEE HE IEE HEHE HE HE HE EEE HEE HEE 
Loco EQU $00 
Loci EQU $01 
WNDLFT EQU $20 
WNDWDTH EQU $21 
WNDTOP EQU $22 
WNDBTM EQuU $23 
CH EQU $24 
cv EQu $25 
GBASL EQU $25 
GBASH EqQu $27 
BASL EQuU $26 
BASH EQU $29 
BaAS2L EQU $2A 
BAS2H EQU $2B 
He EQU $2c 
LMNEM EQU $2C 
v2 EQU $2D 
RMNEM EQU $2D 
MASK EQU $2E 
CHKSUM EQU $2E 
FORMAT EQU $2E 
LASTIN EQU $2F 
LENGTH EQU $2F 
SIGN EQU $2F 
COLOR EQU $30 
MODE EQU $31 
INVFLG EQU $32 
PROMPT EQu $33 
YSAV EQU $34 
YSAV1 EQU $35 
CSWL EQU $36 
CSWH EQU $37 
KSWL EQU $38 
KSWH EQu $39 
PCL EqQu $3A 
PCH EQU $3B 
A1lL EQU $3C 
AlH EQuU $3D 
Aa EQU $3E. 
A2H EQU $3F 
A3L EQU $40 
A3H EQu $4} 
A4L. EQu $42 
A4H EqQu $43 
ASL EQU $44 














F8OO: 0045 77 ASH 
Fsoo: 0045 78 ACC 
F800 0046 79 XREG 
FB00 0047 80 YREG 
F800 0048 81 STATUS 
F800: 0049 82 SPNT 
Fe0o OO04E 83 RNDL 
Fsoo: 004F 84 RNDH 
Fsg00: 0095 85 PICK 
Fsoo: 0200 86 IN 
Fsoo: O3FO 87 BRKV 
Fs0O O3F2 88 SOFTEV 
F800 O3F4 89 PWREDUP 
F800 O3FS 9O AMPERV 
FB00 O3F8 91 USRADR 
Fsoo: O3FB 92 NMI 
F800 O3FE 93 IRQLOC 
Fg00: 0400 94 LINE1 
Feoo: O7F8 95 MSLOT 
FOO: cooo 96 IOADR 
Fsoo: ¢co0o0 97 KBD 
Fsoo: co1o 98 KBDSTRB 
Fsoo: co20 99 TAPEOUT 
FeoOo: C030 100 SPKR 
Feoo: cosO 101 TXTCLR 
Fsg00 cOS1 102 TXTSET 
Fs00o cOS2 103 MIXCLR 
F800 cOS3 104 MIXSET 
Fsoo: co54 105 LOWSCR 
Fsoo: cO55 106 HISCR 
Fsoo: COS6 107 LORES 
FOO: COS7 108 HIRES 
FsoO: cOSB 109 SETANO 
FsOO: coS9 110 CLRANO 
F800 COSA 111 SETAN1L 
Fs00 COSB 112 CLRANI 
Fg0o0 cosc 113 SETAN2 
Fs00 cOSD i114 CLRAN2 
FeOO: COSE 115 SETANS 
FOO COSF 116 CLRAN3 
FOO cQé0 117 TAPEIN 
Feoo cOé4 118 PADDLO 
Fsoo cO7O 119 PTRIG 
Feo0O CFFF 120 CLRROM 
Fsoo: E000 121 BASIC 
Fsoo: E003 122 BASIC2 
F800: 44 123 PLOT 
Fso01:08 12 

F802: 20 47 FB 12 

F805: 28 126 

F806: A9 OF 12 

F808: 90 02 Feoc 128 

FSOA: 69 EO 129 
Fe0C:85 2E 130 RTMASK 
FSOE:B1 26 131 PLOT 
F610:45 30 132 
F812:25 2E 133 
Fe@14:51 26 134 

Fe16: 971 2 135 

F818: 60 136 

F819: 20 00 FS 137 HLINE 
F81C:C4 2c 138 HLINE1L 
FBIE:BO 11 F831 139 
Fs20:c8 140 
FBR21:20 OE FB 141 
FB24:90 Fé FelC 142 

F826: 69 O1 143 VLINEZ 
Fe28: 48 144 VLINE 
F829: 20 00 FB 145 

FB2C: 68 146 
F82D:C5 2D 147 
F82F:90 FS F826 148 

F831: 60 149 RTSL 
F832. A0 2F 150 CLRSCR 
F834: DO 02 F838 151 

F836: AO 27 152 CLRTOP 
F838; 84 2D 153 CLRSC2 
FBSA 154 

F83A: A0 27 155 

Fesc: A? 00 156 CLRSC3 
FS3E:85 30 157 

F840: 20 28 FS 158 

Fe43: 88 159 
Fe44.10 Fé F83C 160 

F846 60 161 

FB47: 48 162 GBASCALC 
F548. 4A 163 

F849: 29 03 164 
F84B:09 04 165 

F84D: 85 27 166 

F4F: 68 167 

F850: 29 18 168 
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EQU 
EQu 
EQU 
EQu 
EQuU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQu 
EQU 
EQuU 


EQU 


STY 


LDY 
LDA 
STA 
JSR 
DEY 
BPL 
RTS 
PHA 
LSR 
AND 
ORA 
STA 
PLA 
AND 





$45 
$45 i 
$46 
$47 
$48 
$49 
S4E 
$4F 
$95 
$0200 
$3F0O 
$3F2 
$3F4 
$3FS 
$03F8 
$03FB 
$3FE 
$400 
$O7F8 
$CO00 
$CO0O 
$CO10 
C020 
$CO030 
$COS5O 
$CO51 
$cOs2 
$CO53 
$CO54 
$CO55 
$CO56 
$COS7 
$CcO5s8 
$COS9 
SCOSA 
$COSB 
$COSC 
$COSD 
SCOSE 
$COSF 
$COSO 
C064 
sCO70 
SCFFF 
$E000 
$E003 
a 


NOTE OVERLAP WITH ASH! 


NEW VECTOR FOR BRK 

VECTOR FOR WARM START 

THIS MUST = EOR #%AS OF SOFTEV+i 
APPLESOFT & EXIT VECTOR 


i Y-COORD/2 

i SAVE LSB IN CARRY 

iCALC BASE ADR IN GBASL,H 
i RESTORE LSB FROM CARRY 

i MASK SOF IF EVEN 


GBASCALC 


#$0F 
RTMASK 
#$E0 

MASK 
(GBASL)., Y 
COLOR ; 
MASK i 


iMASK SFO IF ODD 


i DATA 

XOR COLOR 

AND MASK 
xXOR DATA 
TO DATA 


(GBASL),Y 
(GBASL),Y 


PLOT i PLOT SQUARE 

He i DONE? 

RTS1 i YES, RETURN 

i NO, INCR INDEX (X~COORD) 
i; PLOT NEXT SQUARE 

i ALWAYS TAKEN 

i NEXT Y-COORD 

i SAVE ON STACK 

PLOT i PLOT SQUARE 


PLOT1 
HLINE1L 
#301 


v2 i DONE? 

VLINEZ + NO, LOOP 

#$2F iMAX Y, FULL SCRN CLR 

CLRSC2 i ALWAYS TAKEN 

#27 iMAX Y, TOP SCRN CLR 

v2 i STORE AS BOTTOM COORD 
FOR VLINE CALLS 


#927 i RIGHTMOST X-COORD (COLUMN) 
#$00 i TOP COORD FOR VLINE CALLS 
COLOR » CLEAR COLOR (BLACK) 
VLINE i DRAW VLINE 

i NEXT LEFTMOST X-COORD 
CLRSC3 ;LOOP UNTIL DONE 

i FOR INPUT OODEFGH 
A 
#903 
#504 i GENERATE GBASH=000001FG 
GBASH 

i AND GBASL=HDEDEOOO 
#918 
























































































































































Fase: 90 02 
F854: 69 7F 
F856:85 26 


FSSA: 05 26 
FSSC:85 26 


FSS5F:AS5 30 


Fe8é6c:05 30 
FS86E:85 30 


F873:20 47 


F879: 90 04 


FSB4: 29 SF 


FSB8: AO 03 
FSBA:EO 8A 
FSBC:FO OB 


FEBF:90 08 


F8C3:09 20 


F8C6: DO FA 


FS8CA: DO F2 


F856 


FS 


Fa7F 


FD 
Fo 


FS9B 
FBAS 


FBAS 


Fo 


FBAI 


Fo 


Fac? 


Fec? 


Fece 
FeBE 
FF 


FB 


FD 


Fo 





169 
170 
171 
172 
173 
174 
175 
176 


229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 


GBCALC 


NXTCOL 


SETCOL 


SCRN 


SCRN2 


RTMSKZ 


INSDS1 


INSDS2 


TEVEN 


ERR 


GETFMT 


i (0=1 BYTE, 


MNNDX 1 


MNNDX2 


MNNDX3 


INSTDSP 


PRNTOP 


PRNTBL 






































BCC GBCALC 
ADC #37F 
STA GBASL 
ASL A 
ASL A 
ORA GBASL 
STA GBASL 
RTS 
LDA COLOR i; INCREMENT COLOR BY 3 
cLc 
ADC #$03 
AND #50F i SETS COLOR=17#A MOD 16 
STA COLOR 
ASL. A i+ BOTH HALF BYTES OF COLOR EQUAL 
ASL. A 
ASL A 
ASL A 
ORA COLOR 
STA COLOR 
RTS 
LSR A iREAD SCREEN Y~-COORD/2 
PHP i SAVE LSB (CARRY) 
JSR GBASCALC i CALC BASE ADDRESS 
LDA (GBASL),Y iGET BYTE 
PLP i; RESTORE LSB FROM CARRY 
Bcc RTMSKZ i+ IF EVEN, USE LO H 
LSR A 
LSR A 
LSR A i SHIFT HIGH HALF BYTE DOWN 
LSR A 
AND #$0F iMASK 4-BITS 
RTS 
LDX PCL +#PRINT PCL,H 
LDY PCH 
JSR PRYX2 
JSR PRBLNK i FOLLOWED BY A BLANK 
LDA (PCL, X) i+GET OPCODE 
TAY 
LSR A ij EVEN/ODD TEST 
BCC IEVEN 
ROR A iBIT 1 TEST 
BcS ERR + XXXXXX11 INVALID OP 
cmMP #$A2 
BEG ERR ;OPCODE $89 INVALID 
AND #$87 ;MASK BITS 
LSR A ;LSB INTO CARRY FOR L/R TEST 
TAX 
LDA FMT1i, X iGET FORMAT INDEX BYTE 
JSR SCRN2 iR/L H-BYTE ON CARRY 
BNE GETFMT 
LDY #$80 i SUBSTITUTE $80 FOR INVALID OPS 
LDA #500 i SET PRINT FORMAT INDEX TO O 
TAX 
LDA FMT2. X i; INDEX INTO PRINT FORMAT TABLE 
STA FORMAT i SAVE FOR ADR FIELD FORMATTING 
AND #503 iMASK FOR 2-BIT LENGTH 
1=2 BYTE, 2=3 BYTE? 
STA LENGTH 
TYA + OPCODE 
AND #38F i MASK FOR 1XXX1010 TEST 
TAX i SAVE IT 
TYA iOPCODE TO A AGAIN 
LDY #503 
CPX #584 
BEQ MNNDX3 
LSR a 
BCC MNNDX3 i FORM INDEX INTO MNEMONIC TABLE 
LSR A 
LSR 4 i = 1) 1XXX1010 => OOLOLXXX 
ORA #$20 i 2) XXXYYYOL => OOL11XXX 
DEY i) = 3) XXXYYY1O => OOL10XXX 
BNE MNNDX2 i 4) XXXYY100 => OO100XXX 
INY i = 5) XXXXXOOO => OOOXXXXX 
DEY 
BNE MNNDX 1 
RTS 
DFB SFF, SFF, $FF 
JSR INSDS1 i+GEN FMT, LEN BYTES 
PHA i+ SAVE MNEMONIC TABLE INDEX 
LDA (PCL), Y 
JSR PRBYTE 
LDX #$01 i PRINT 2 BLANKS 
JSR PRBL2 
cPY LENGTH #PRINT INST (1-3 BYTES) 
INY i IN A 12 CHR FIELD 
BCC PRNTOP 
LDX #$03 iCHAR COUNT FOR MNEMONIC INDEX 
cPY #604 
BCC PRNTBL 
PLA + RECOVER MNEMONIC INDEX 
TAY 
LDA MNEML, Y 
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FREE: 85 2c 261 STA 
F8FO:B9 OO FA 262 LDA 
FS8F3:85 2D 263 STA 
FSF5:A9 00 264 PRMN1 LDA 
F8F7:A0 OS 265 LDY 
F8F9: 06 2D 266 PRMN2 ASL 
FSFB: 26 2 267 ROL 
FFD: 2A 268 ROL 
FSFE: 88 269 DEY 
FSFF:DO F8 FEF? 270 BNE 
F901: 69 BF 271 ADC 
F903: 20 ED FD 272 JSR 
F906: CA 273 DEX 
F907: DO EC FSFS 274 BNE 
F909: 20 48 F9 275 JSR 
F90C: A4 2F 276 LDY 
F9OE: A2 06 277 LDX 
F910:EO 03 278 PRADR1 cPxX 
F912:FO 1C F930 279 BEG 
F914:06 2E 280 PRADR2 ASL 
F916:90 OE F926 281 BCG 
F918:BD B3 F9 282 LDA 
F91B: 20 ED FD 283 JSR 
F91E:BD B9 F9 284 LDA 
F921:FO 03 F926 285 BE@ 
F923: 20 ED FD 286 JSR 
F926: CA 287 PRADR3 DEX 
F927:DO E7 F910 288 BNE 
F929: 60 289 RTS 
F924: 88 290 PRADR4 DEY 
F92B: 30 E7 F914 291 BMI 
F92D:20 DA FD 292 JSR 
F930: A5 2E 293 PRADRS LDA 
F932:C9 ES 294 CMP 
F934:Bi 34 295, LDA 
F936: 90 F2 F92A 296 BCC 
F938: 20 56 FO 297 RELADR JSR 
F93B: AA 298 TAX 
F93C:E8 299 INX 
F93D:DO O1 F740 300 BNE 
301 INY 
302 PRNTYX TYA 
303 PRNTAX JSR 
304 PRNTX TXA 
305 JMP 
306 PRBLNK LDX 
307 PRBL2 LDA 
308 PRBL3 JSR 
309 DEX 
Fs F94A 310 BNE 
311 RTS 
312 PCADU SEC 
2F 313 PCADJ2 LDA 
3B 314 PCADU3 LDY 
315 TAX 
o1 F9SC 316 BPL 
317 DEY 
3A 318 PCADUJ4 ADC 
o1 F961 319 BCC 
320 INY 
321 RTS2 RTS 
322 i; FMT1 BYTES: 
323 i; IF Y=0 
324 TF! i 
325 i 
326 FMT1L DFB 
327 DFB 
328 DFB 
329 DFB 
330 DFB 
331 DFB 
332 DFB 
333 DFB 
334 DFB 
335 DFB 
336 DFB 
337 DFB 
338 DFB 
339 DFB 
340 DFB 
341 DFB 
342 DFB 
343 DFB 
344 DFB 
345 DFB 
346 DFB 
347 DFB 
348 DFB 
349 DFB 
350 DFB 
351 DFB 
352 DFB 
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LMNEM i FETCH 3-CHAR MNEMONIC 
MNEMR, Y i (PACKED INTO 2-BYTES) 
RMNEM 
#$00 
#605 
RMNEM i SHIFT 5 BITS OF CHARACTER INTO A 
LMNEM 
A i (CLEARS CARRY) 
PRMN2 
#$BF i ADD "?" OFFSET 
cout i OUTPUT A CHAR OF MNEM 
PRMN1 
PRBLNK i OUTPUT 3 BLANKS 
LENGTH 
#SO6 i CNT FOR 6 FORMAT BITS 
#$03 
PRADRS i IF X=3 THEN ADDR 
FORMAT 
PRADR3 
CHAR1~1, X 
court 
CHAR2-1, X 
PRADR3 
COUT 
PRADR1 
PRADR2 
PRBYTE 
FORMAT 
#SE8 iHANDLE REL ADR MODE 
(PCL),Y i SPECIAL (PRINT TARGET, 
PRADR4 i NOT OFFSET) 
PCADJ3 
+PCL, PCH+OFFSET+1 TO 4,Y¥ 
PRNTYX #+1 TO Y,X 
PRBYTE i QUTPUT TARGET ADR 
i OF BRANCH AND RETURN 
PRBYTE 
#303 + BLANK COUNT 
#SA0 i LOAD A SPACE 
COUT + OUTPUT A BLANK 
PRBL2 i LOOP UNTIL COUNT=0 
;0=1 BYTE, 1=2 BYTE, 
LENGTH i 2=3 BYTE 
PCH 
i TEST DISPLACEMENT SIGN 
PCADU4 i (FOR REL BRANCH) 
+EXTEND NEG BY DECR PCH 
PCL 
RTS2 ij PCL+LENGTH(OR DISPL)+1 TO A 


i CARRY INTO Y (PCH) 


XXXXXXYO INSTRS 
THEN LEFT HALF BYTE 
THEN RIGHT HALF BYTE 
(X=INDEX) 

$04 

$20 

$54 

$30 

$0D 

$80 

$04 

$90 

$03 

$22 

$54 

$33 

$0D 

$80 

$04 

$90 

$04 

$20 

$54 

$33 

$OD 

$80 

$04 

$90 

$04 

$20 

$54 















































353 DFB $3B 





354 DFB $0D 

355 DFB $80 

356 DFB $04 

357 DFB $90 

358 DFB $00 

359 DFB $22 

360 DFB $44 

361 DFB $33 

362 DFB $0D 

363 DFB $C8 

364 DFB $44 

365 DFB $00 

366 DFB $11 

367 DFB $22 

368 DFB $44 

369 DFB $33 

370 DFB sOD 

371 DFB $CB8 

372 DFB $44 

373 DFB SAP 

374 DFB $01 

375 DFB $22 

376 DFB $44 

377 DFB $33 

378 DFB $OD 

379 DFB $80 

380 DFB $04 

381 DFB $90 

382 DFB $01 

383 DFB $22 

384 DFB $44 

385 DFB $33 

386 DFB $0D 

387 DFB $80 

388 DFB $04 

389 DFB $90 

390 DFB $26 

3971 DFB $31 

392 DFB $87 

393 DFB SIA 

394 i ZZXXXYO1 INSTR‘’S 

395 FMT2 DFB $00 i ERR 
396 DFB $21 i IMM 
397 DFB $81 i Z-PAGE 
398. DFB $82 i ABS 
399 DFB $00 i IMPLIED 
400 DFB $00 + ACCUMULATOR 
401 DFB $59 i CZPAG, X) 
402 DFB $4D i (ZPAG),Y 
403 DFB $91 i ZPAG, X 
404 DFB $92 i ABS, X 
405 DFB $86 i+ ABS, Y 
406 DFB $44 i (ABS) 
407 DFB $85 + ZPAG,Y 
408 DFB $9D i RELATIVE 
409 CHARI DFB SAC aa Bad 
410 DFB SAP i 

411 DFB $AC i 

412 DFB $A3 i 

413 DFB $A8 i 

414 DFB SA4 i 

415 CHAR2 DFB $D9 aeye 
416 DFB $00 

417 DFB $D8 ai ied 
418 DFB $A4d is 
419 DFB $A4 i BS 
420 DFB $00 

421 MNEML DFB $1Cc 

422 DFB $84 

423 DFB $1C 

424 DFB $23 

425 DFB $5D 

426 DFB $8B 

427 DFB $1B 

428 DFB SAL 

429 DFB $9D 

430 DFB SBA 

431 DFB $1D 

432 DFB $23 

433 DFB $9D 

434 DFB $6B 

435 DFB $1D 

436 DFB SAL 

437 DFB $00 

438 DFB $29 

439 DFB $19 

440 DFB $AE 

441 DFB $69 

442 DFB SAS 

443 DFB $19 

444 DFB $23 
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F9D8: 24 445 DFB $24 


F9D9: 53 446 DFB $53 
F9DA: 1B 447 DFB $1B 
FODB: 23 448 DFB $23 
F9ODC: 24 449 DFB $24 
F9DD: 53 450 DFB $53 
FODE: 19 451 DFB $19 i (A) FORMAT ABOVE 
FODF: Al 452 DFB SAL 
FEO: 00 453 DFB $00 
F9E1: 1A 454 DFB $1A 
F9E2: SB 455 DFB $5B 
F9E3: SB 456 DFB $5B 
F9IE4: AS 457 DFB SAS 
F9IES: 69 458 DFB $69 
FIE6: 24 459? DFB $24 + (B) FORMAT 
F9E7: 24 460 DFB $24 
F9EB: AE 461 DFB SAE 
F9E?: AE 462 DFB $AE 
F9EA: AS 463 DFB $As 
F9EB: AD 464 DFB $AD 
FIEC: 29 465 DFB $29 
FIED: 0O 466 DFB $00 
F9OEE: 7C 467 DFB $7C + (C) FORMAT 
FEF: 00 468 DFB $00 
F9OFO: 15 469 DFB $15 
FOF1:9C 470 DFB $9C 
F9OF2: 6D 471 DFB $6D 
FOF3: 9C 472 DFB $9C 
FOF4: AS 473 DFB $AS 
FOFS: 69 474 DFB $69 
FOF6: 29 475 DFB $29 i+ (D) FORMAT 
F9F7: S3 476 DFB $53 
FOF8: 84 477 DFB $84 
FOF9: 13 478 DFB $13 
FOFA: 34 479 DFB $34 
FOFB: 11 480 DFB $11 
FOFC: AS 481 DFB $AS 
FOFD: 69 482 DFB $69 
FOFE: 23 483 DFB $23 i (E) FORMAT 
FOFF: AO 484 DFB $AO 
FAOO: DS 485 MNEMR DFB $D8 
FAO1: 62 486 DFB $62 
FAOQ2: SA 487 DFB SSA 
FAQS: 48 488 DFB $48 
FAO4: 26 489 DFB $26 
FAQS: 62 490 DFB $62 
FAQ6: 94 491 DFB $94 
FAQO7: 88 492 DFB $88 
FAQS: 54 493 DFB $54 
FAO9?: 44 494 DFB $44 
FAOA: C8 495 DFB $cB 
FAOB: 54 496 DFB $54 
FAOC: 68 497 DFB $68 
FAOD: 44 498 DFB $44 
FAOE: E8 499 DFB $E8 
FAOF: 94 500 DFB $94 
FA10: 00 Sso1 DFB $00 
FA11: B4 502 DFB $B4 
FA12: 08 503 DFB $08 
FA13: 84 504 DFB $84 
FA14: 74 505 DFB $74 
FA1S: B4 506 DFB $B4 
FA16: 28 507 DFB $29 
FA17: 6E 508 DFB $6E 
FA18: 74 509 DFB $74 
FA19: F4 510 DFB SF4 
FAIA: CC Si DFB $CC 
FAIB: 4A 512 DFB B44 
FAIC: 72 513 DFB $72 
FAID: F2 514 DFB $F2 
FALE: A4 S15 DFB $A4 i (A) FORMAT 
FAIF: BA 516 DFB SBA 
FA20: 00 517 DFB $00 
FA21: AA 518 DFB SAA 
FA22: A2 S19 DFB $A2 
FA23: A2 520 DFB BAD 
FA24: 74 521 DFB $74 
FA25: 74 S22 DFB $74 
FA26: 74 523 DFB $74 i (B) FORMAT 
FA27: 72 524 DFB $72 
FA28: 44 S525 DFB $44 
FA29: 68 526 DFB $68 
FA2A: B2 S2 DFB $B2 
FA2B: 32 526 DFB $32 
FA2c: B2 529 DFB $B2 
FA2D: 0O 530 DFB $00 
FAZE: 22 S31 DFB $22 i (C) FORMAT 
FA2F: 00 532 DFB $00 
FASO: 14 533 DFB S1iA 
FAS1: 1A 534 DFB $1A 
FAS2: 26 535 DFB $26 
FA33: 26 536 DFB $26 
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FA34: 72 537 DFB $72 
FASS: 72 538 DFB $72 
FA36: 88 539 DFB $88 
FA37: C8 540 DFB $CB8 
FA38: C4 S41 DFB $C4 
FA39: CA 542 DFB SCA 
FASA: 26 543 DFB $26 
FASB: 48 544 DFB $48 
FASC: 44 545 DFB $44 
FASD: 44 546 DFB $44 
FASE: A2 547 DFB $A2 
FAQF: C8 548 DFB $C8 
FA40:85 45 549 IRG STA ACC 
FA42: 68 550 PLA 
FA43: 48 S51 PHA 
FA44: 0A 552 ASL a 
FA4S: OA 553 ASL A 
FA46: OA 554 ASL A 
FA47: 30 03 FA4C 555 BMI BREAK 
FA49: 6C FE 03 556 UMP: (IRQLOC) 
FA4C: 28 557 BREAK PLP 
FA4D: 20 4C FF 558 JSR Savi 
FASO: 68 559 PLA 
FAS1:85 3A 560 STA PCL 
FAS3: 68 561 PLA 
FAS4: 85 3B 562 STA PCH 
FAS6: 6C FO 03 563 JMP (BRKV) 
FAS9: 20 82 FB 564 OLDBRK JSR INSDS1 
FASC: 20 DA FA 565 JSR RGDSP1 
FASF:4C 65 FF 566 JMP MON 
FA62: D8 567 RESET cLD 
FA63: 20 84 FE 568 JSR SETNORM 
FAG4:20 2° FB 569 JSR INIT 
FA69: 20 93 FE 570 JSR SETVID 
FA6C: 20 89 FE S571 JSR SETKBD 
FA6F:AD 58 CO 572 INITAN LDA SETANO 
FA72: AD SA CO 573 LDA SETANI 
FA7S: 0001 574 DO APPLE2E 
FAa75: AO OS 575 LDY #5 
FA77: 20 B4 FB 576 JSR coTocx 
FA7A: EA 577 NOP 
FA7B: 578 ELSE 
s 579 LDA CLRAN2 
s 580 LDA CLRAN3 
FA7B: 581 FIN 
FA7B: AD FF CF 582 LDA CLRROM 
FA7E:2C 10 CO 583 BIT KBDSTRB 
FA81: D8 584 NEWMON cLD 
FA82:20 3A FF 585 JSR BELL 
FASS: AD F3 03 586 LDA SOFTEV+1i 
FA88: 49 AS 587 EOR #SA5 
FABA: CD F4 03 588 cMP PWREDUP 
FA8D: DO 17 FAA 589 BNE PWRUP 
FA8F: AD F2 03 590 LDA SOFTEV 
FA92: DO OF FAA3 591 BNE NOF IX 
FA?4: A? EO 592 LDA #SE0 
FA96:CD F3 03 593 CMP SOFTEV+1 
Fa99: DO 08 FAA3 594 BNE NOFIX 
FA9B: AO 03 595 FIXSEV LDY #3 
FA9D: 8C F2 03 596 STY SOFTEV 
FAAO: 4C 00 EO 597 JMP BASIC 
FAA3: 6C F2 03 598 NOFIX JMP (SOFTEV) 
FAA6: SOD estate ade 
FAA6: 20 60 FB 600 PWRUP JSR APPLEIT 
FAA9: FAA? 601 SETPG3 EQU * 
FAA: A2 OS 602 LDX #5 
FAAB: BD FC FA 603 SETPLP LDA PWRCON-1, X 
FAAE: 9D EF 03 604 STA BRKV~1, X 
FAB1: CA 605 DEX 
FAB2: DO F7 FAAB 606 BNE SETPLP 
FAB4: A9 C8 607 LDA #3C8 
FAB6: 86 00 608 STX Loco 
FABS: 85 O01 609 STA Loci 
FABA: AO 07 610 SLOOP LDY #7 
FABC:Cé O1 611 DEC Loci 
FABE: AS O1 612 LDA Loci 
FACO: C9 CO 613 cMP #3CO 
FAC2:FO D7 FA9B 614 BEQ@ FIXSEV 
FAC4: 8D F8 07 615 STA MSLOT 
FAC7:B1 00 616 NXTBYT LDA (LOCO), Y 
FAC9: D9 O1 FB 617 CMP DISKID-1,Y 
Facc: DO EC FABA 618 BNE SLOOP 
FACE: 88 619 DEY 
FACF: 88 620 DEY 
FADO: 10 FS FAC7 621 BPL NXTBYT 
FAD2: 6C 00 00 622 JMP (Loco) 
FADS: EA 623 NOP 
FAD6: EA 624 NOP 
FAD7: 625 # REGDSP MUST ORG $FAD7 
FAD7: 20 8E FD 626 REGDSP JSR CROUT 
FADA: A? 45. 627 RGDSP1 LDA #845 
FADC:85 40 628 STA A3L 
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i (D) FORMAT 


i (E) FORMAT 


i ##% IRQ HANDLER 


i TEST 
i USER 


FOR ‘BRK‘ 
ROUTINE VECTOR IN RAM 


i SAVE REG’S ON BREAK 
i INCLUDING PC 


i+ BRKV WRITTEN OVER BY DISK BOOT 
i PRINT USER PC 

i AND REGS 

iGO TO MONITOR (NO PASS GO, 
+DO THIS FIRST THIS TIME 


NO $200!) 


i ANO = TTL HI 
i; ANIL = TTL HI 
i /RRAO9B1 


; CODE=INIT/RRAOPB1 

3DO APPLE2E INIT/RRAO9S1 
i /RRAOPB1 

i /RRAOPB1 

i AN2 = TTL LO 

i ANS = TTL LO 

i /RRAOPBI 

i TURN OFF EXTNSN ROM 
i CLEAR KEYBOARD 


CAUSES DELAY IF KEY BOUNCES 

IS RESET HI 

& FUNNY COMPLEMENT OF THE 

PWR UP BYTE ?77 

NO SO PWRUP 

YES SEE IF COLD START 

HAS BEEN DONE YET? 

DOES SOFT ENTRY VECTOR POINT AT BASIC’ 


YES SO REENTER SYSTEM 

NO SO POINT AT WARM START 
FOR NEXT RESET 

AND DO THE COLD START 
SOFT ENTRY VECTOR 


i SET PAGE 3 VECTORS 


i; WITH CNTRL B ADRS 
i OF CURRENT BASIC 


LOAD HI SLOT +1 
SETPG3 MUST RETURN X=0 
SET PTR H 

Y IS BYTE PTR 


i AT LAST SLOT YET? 
i YES AND IT CAN‘’T BE A DISK 


i FETCH A SLOT BYTE 
+ IS IT A DISK 77 
i+ NO, SO NEXT SLOT DOWN 


i YES, SO CHECK NEXT BYTE 
i UNTIL 4 BYTES CHECKED 
+ GO BOOT... 


i+ DISPLAY USER REG CONTENTS 
i+ WITH LABELS 













































































FADE: A9 OO 629 LDA #300 








FAEO: 85 41 630 STA ASH 
FAE2: A2 FB 631 LDX  #3FB 
FAE4: A9 AO 632 RDSP1 LDA #840 
633 USK COUT 
634 LDA RTBL-251, x 
; 635 JSR = COUT 
FAEF: A9 BD 636 LDA = #$BD 
FaF1:20 ED FD 637 JSR COUT 
FAF4 638 * LDA ACC+S, X 
639 DFR «$B5, $48 
640 JSR PRBYTE 
641 INX 
642 BMI] RDSP1 
643 RTS 
644 PWRCON DW = OLDBRK 
645 DFB $00, $E0, $45 
646 DISKID DFR $20, $FF, $00, $FF 
647 DFB $03, $FF, $3C 
648 TITLE asc ‘Apple i" 
649 XLTBL EQU 
650 DFB  $C4, $C2, $C1 
651 DFB $FF, $C3 
652 DFB  $FF, $FF, $FF 
653 * MUST ORG $FB19 
654 RTBL DFB $C1,$D8,$D9 i REGISTER NAMES FOR REGDSP: 
655 DFB $D0, $D3 i ‘AXYPS’ 
656 PREAD LDA  PTRIG i; TRIGGER PADDLES 
657 LDY #800 i; INIT COUNT 
658 NOP i COMPENSATE FOR 1ST COUNT 
659 NOP 
660 PREAD2 LDA — PADDLO, x ; COUNT Y-REG EVERY 12 USEC. 
661 BPL  RTS2D 
662 INY 
663 BNE = PREAD2 ;EXIT AT 255 MAX 
664 DEY 
665 RTS2D RTS 
666 CHN BUS. SRC2 
1 +* 
2 INIT LDA #00 iCLR STATUS FOR DEBUG SOFTWARE 
3 sTa STATUS 
4 LDA _LORES 
5 LDA LOWSCR i INIT VIDEO MODE 
& SETTXT LDA = TXTSET ;SET FOR TEXT MODE 
7 LDA #00 ;FULL SCREEN WINDOW 
8 BEG  SETWND 
9 SETGR LDA TXTCLR ;SET FOR GRAPHICS MODE 
10 LDA = MIXSET ;LOWER 4 LINES AS TEXT WINDOW 
11 JSR CLRTOP 
12 LDA #814 
13 SETWND STA — WNDTOP ;SET FOR 40 COL WINDOW 
14 LDA #800 i; TOP IN A-REG, 
15 STA WNDLFT ; BOTTOM AT LINE $24 
16 DO APPLE2E i /RRAOFB1 
17 LDY #8 i CODE=SETWND /RRAOQB1 
18 BNE GOTOCX ;DO 40/80 /RRAOI81 
19 ELSE i /RRAOVBL 
20 LDA #828 
21 STA — WNDWDTH 
22 FIN i /RRAOPBL 
9 18 23 LDA #818 
5 23 24 STA WNDBTM 
7 17 25 LDA #17 iVTAB TO ROW 23 
5 25 26 TABV STA CV i VTABS TO ROW IN A-REG 
© 22 FC 27 vMP —s«VTAB 
0 58 FC 28 APPLEII JSR HOME i CLEAR THE SCRN 
oO 08 29 LDY 48 
9 08 FB 30 STITLE LDA‘ TITLE-1,Y iGET A CHAR 
9 OE 04 31 STA LINE1+14,Y i PUT IT AT TOP CENTER OF SCREEN 
8 32 DEY 
F7  FB65 33 BNE STITLE 
34 RTS 
F3 03 35 SETPWRC LDA SOF TEV+1 ;ROUTINE TO CALCULATE THE ‘FUNNY 
a5 36 EOR #$A5 ; COMPLEMENT’ FOR THE RESET VECTOR 
F4 03 37 STA PWREDUP 
38 RTS 
FB78 39 VIDWAIT equ # i CHECK FOR A PAUSE (CONTROL-S). 
8D 40 CMP = #88D i ONLY WHEN I HAVE A CR 
18 FB94 41 BNE NOWAIT iNOT SO, DO REGULAR 
00 co 42 LDY KBD i IS KEY PRESSED? 
13° FB94 «43 BPL NOWAIT i NO. 
93 44 cPY #893 iYES -- IS IT CTRL-S? 
OF FB94 45 BNE NOWAIT iNOPE - IGNORE 
10 co 46 BIT KBDSTRB i CLEAR STROBE 
00 co 47 KBDWAIT LDY KBD jWAIT TILL NEXT KEY TO RESUME 
FB FB8S) =48 BPL KBDWAIT iWAIT FOR KEYPRESS 
83 49 cPY #$83 i; 1S IT CONTROL-C? 
03. FB94 50 BEG NOWAIT iYES, SO LEAVE IT 
10 CO 51 BIT KBDSTRB iCLR STROBE 
FD FB 52 NOWAIT vMP = VIDOUT iDO AS BEFORE 
53 ESCOLD SEC i INSURE CARRY SET 
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FB98:4C 2C FC 54 MP Esci 
FB9B: AS SS ESCNOW TAY 
FB9C:B9 48 FA 56 LDA XLTBL-$C9, Y 
FB9F: 20 97 FB 57 JSR ESCOLD 
FBA2: 0001 58 bo APPLE2E 
FBA2: 20 21 FD 5? JSR RDESC 
FBAS: 60 ELSE 

Ss 61 JSR RDKEY 
FBAS: 62 FIN 
FBAS: C9 CE 63 ESCNEW cMP #$CE 
FBA7: BO EE FB97 64 BCS ESCOLD 
FBA9: C9 C9 65 CMP #SC9 
FBAB: 90 EA FB97 66 BCC ESCOLD 
FBAD: C9 CC 67 CMP #$CC 
FBAF: FO E6& FB97 68 BEQ@ ESCOLD 
FBB1:DO E8 FB9B 69 BNE ESCNOW 
FBB3: 0001 70 bo APPLE2ZE 
FRB3: C006 71 SETSLOTCXROM EQU C006 
FBB3: cOO7 72 SETINTCXROM EGU $COO7 
FBB3: co1s 73 RDCXROM EQu $CO15 
FBB3: 74 * 
FBB3: 06 75 VERSION DFB $06 
FBB4: FBB4 76 GOTOCX EQU * 
FBB4: 08 oe PHP 
FBBS: 78 78 SEI 
FBB6é:2C 15 CO 79 BIT RDCXROM 
FBB?: 08 80 PHP 
FBBA: 8D 07 CO 81 STA SETINTCXROM 
FBBD:4C 00 Cl 62 JMP $C100 
FBCO: 83 * 
FBCO: EA B4 NOP 
FBC1: Bs ELSE 

Ss B86 NOP 

s 87 NOP 

s 88 NOP 

& B89 NOP 

Ss 90 NOP 

Ss a1 NOP 

s 92 NOP 

s 93 NOP 

s 94 NOP 

Ss 95 NOP 

s 96 NOP 

Ss 97 NOP 

s 98 NOP 

s 99 NOP 
FBC1: 100 FIN 
FBC1i: 101 #* MUST ORG $FBCi 
FBC1: 48 102 BASCALC PHA 
FBC2: 4A 103 LSR A 
FBC3: 29 03 104 AND #503 
FBC5: 09 04 105 ORA #504 
FBC7:85 29 106 STA BASH 
FBC9: 68 107 PLA 
FBCA: 29 18 108 AND #3518 
FBCC:90 02 FBDO 109 BCC BASCLC2 
FBCE: 69 7F 110 ADC #97F 
FBDO: 85 28 111 BASCLC2 STA BASL 
FBD2: OA 112 ASL 4 
FBD3: OA 113 ASL A 
FBD4:05 28 114 ORA BASL 
FBD6:85 28 115 STA BASL 
FBD8: 60 116 RTS 
FBD9:C9 87 117 BELL1 cmMP #$87 
FBDB: DO 12 FBEF 118 BNE RTS2B 
FBDD: A9 40 119 LDA #340 
FBDF: 20 ABS FC 120 JSR WAIT 
FBE2: AO CO 121 LDY #$CO 
FBE4: A? OC 122 BELL2 LDA #S0C 
FBE6: 20 AB FC 123 JSR WAIT 
FBE?: AD 30 CO 124 LDA SPKR 
FBEC: 88 125 DEY 
FBED: DO FS FBE4 126 BNE BELL2 
FBEF: 60 127 RTS2B RTS 
FBFO: A4 24 128 STORADV LDY CH 
FBF2:91 28 129 STA (BASL), ¥ 
FBF4:E6 24 130 ADVANCE INC CH 
FBF4:A5 24 131 LDA CH 
FBF8:CS5S 21 132 CMP WNDWDTH 
FBFA: BO 66 FC62 133 BCS CR 
FBFC: 60 134 RTS3 RTS 
FBFD:C9? AO 135 VIDOUT CMP #BAO 
FBFF: BO EF FBFO 136 BCS STORADV 
FCO1: AS 137 TAY 
Fco2:10 EC FBFO 138 BPL STORADV 
FCO4:C9 8D 139 CMP #$8D 
FCO6é:FO SA FC6é2 140 BEG cR 
FCO8:C9 BA 141 CMP #$8A 
FCOA: FO SA FC66 142 BEQ@ LF 
FCOc:c? 88 143 cmMP “$88 
FCOE: DO C9 FBD9 144 BNE BELL1 
FC10:C6 24 145 BS DEC CH 
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i+USE CHAR AS INDEX 

i TRANSLATE IJKAM TO CBAD 

i DO THE CURSOR MOTION 

i FOR FULL ESCAPES/RRAOI81 
iGET IJKM, iykm, ARROWS/RRAOZS81 
i /RRAO9B1 

i+AND GET NEXT 

i /RRAOPB1 

41S THIS AN ‘N’? 

i ‘N’ OR GREATER - DO IT! 
+LESS THAN ‘I’? 

+YES, SO DO OLD WAY 

+18 IT AN ’L‘? 

i; DO NORMAL 

iGO DO IT 

i /RRAO9B81 

i /RRAO?81 

i 7RRAO9B81 

i 7RRAO9B1 

/RRAOP81 

iFOR IDCHECK/RRAO?81 

i /RRAOZB1 

i SAVE USER IR@ STATE/RRAO981 
i INHIBIT DURING BANKSWITCH/RRAO981 
i+GET CURRENT STATE/RRAO981 
i SAVE ROMBANK STATE/RRAOTS1 
i SET ROMS ON/RRAO?81 

i =>0FF TO CXSPACE/RRAO?B1 
7RRAOIB81 

i /RRAOIB1 

i /RRAOIB1 

i+ "I GOT PLENTY OF NOTHING!" 


i /RRAOIBL 


i CALCBASE ADDR IN BASL,H 
i FOR GIVEN LINE NO. 

i O<=LINE NO. <=$17 

i ARG=OOOABCDE, GENERATE 
i BASH=000001CD 

i AND 

i+ BASL=EABABOOO 





i+ BELL CHAR? (CONTROL-G) 
i NO, RETURN. 

4 VES... 

i DELAY .01 SECONDS 


i TOGGLE SPEAKER AT 1 KHZ 
i FOR .1 SEC. 


i+ CURSOR H INDEX TO Y-REG 

i STORE CHAR IN LINE 

i INCREMENT CURSOR H INDEX 
i+ (MOVE RIGHT) 

i BEYOND WINDOW WIDTH? 

+ YES, CR TO NEXT LINE. 

i NO, RETURN. 

+CONTROL CHAR? 

i NO, OUTPUT IT. 

i INVERSE VIDEO? 

i YES, OUTPUT IT. 

i CR? 

i YES. 

iLINE FEED? 

i IF SO, DO IT. 

+BACK SPACE? (CONTROL-H) 

+ NO, CHECK FOR BELL. 

i; DECREMENT CURSOR H INDEX 


11 





FC12:10 £8 FBFC 146 


FC14:A5 21 147 
FC16:85 24 148 
FC18:C&é 24 149 
FC1A:A5 22 150 UP 
FCic:CS 25 151 
FC1E: BO OB FC2B 152 
FC20:Cé 25 153 
FC22:AS 25 154 VTAB 
FC24: 20 Ci FB 155 VTABZ 
FC27: 465 20 156 
Fc29:85 28 157 
FC2B: 60 158 RTS4 
Fc2c: 49 CO 159 ESC1L 
FC2E:FO 28 FCSB8 160 
FC30: 69 FD 161 


FC32:90 CO FBF4 162 
FC34:FO DA Fco1o 163 
FC36: 69 FD 164 
FC38:90 2c FC66 165 
FC3A:FO DE FCIA 166 
FC3C: 69 FD 167 
FC3E:90 SC Fo9c $168 
FC40: DO E9 FC2B 1469 


Fc42: 0001 170 
Fc42; Fc42 171 CLREOP 
FC42: AO 00 172 


FC44:FO 2c FC72 173 
FC46: AB C3 AI AO 174 
FCS8: 175 
176 CLREOP 
177 
178 CLEOP1 
179 
180 
181 
182 


184 
185 
186 
187 
0001 188 
FCS8 189 HOME 
190 
FC72 191 
FCSC:D2 C9 C3. CB. 192 
193 
194 HOME 
195 
196 
197 
198 
199 
200 CR 
201 
202 LF 
203 
204 
FC24 205 
206 
0001 207 
FC70 208 SCROLL 
209 
210 xcoTOCX 
211 * 


Ss 
s 
s 
s 
Ss 
Ss 
Ss 
s 
s 
s 
s 





213 * 
co1g8 214 RDBOSTORE 
co1c 215 RDPAGE2 
216 
217 
218 
219 
220 
221 
FC84 222 
223 
224 RDCX 
225 
226 
227 
FC91 228 
229 
FC91L 230 ISSLOTS 
231 
FC99 232 
FC99 «233 
234 
FC99 235 ISPAGE1 
236 
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CMP 
BCC 
DEC 
bo 

EQU 
LDY 
JMP 


212 * IRQ SNIFFER FOR 


EQU 
EQU 
PHA 
LDA 
ASL 
PLA 
BIT 

PHP 
BCC 
STA 
BIT 
STA 
CII 
SEI 
BPL 
STA 
EQU 
PLP 
BCC 
BPL 

BIl 

EQU 
RTS 


RTS3 
WNDWDTH 
CH 

CH 
WNDTOP 
cv 

RTS4 

cv 

cv 
BASCALC 
WNDLFT 
BASL 


#$CO 

HOME 

#$FD 

ADVANCE 

BS 

#$FD 

LF 

uP 

#$FD 

CLREOL 

RTS4 

APPLEZE 
* 

#0 
xGOTOCX 
“(C) 


CH 
cv 


VTABZ 
CLEOLZ 
#$00 


#$00 
WNDBTM 
CLEOP1 
VTAB 


APPLE2E 
* 

#1 
xGOTOCX 
“RICK 


WNDTOP 


WNDBTM 
VTABZ 
cv 
APPLE2E 
* 

#2 
GOTOCX 


VIDEO CODE: 


$CO18 
$COIC 


RDBOSTORE 
A 


RDPAGE2 


RDCX 
$COS4 
RDCXROM 


SETSLOTCXROM 


ISSLOTS 


SETINTCXROM 


* 


ISPAGE1 
ISPAGE1 
$COSS 

* 















































+IF POSITIVE, OK; ELSE MOVE UP. 
iSET CH TO WINDOW WIDTH - 1. 


i (RIGHTMOST SCREEN POS) 
i CURSOR V INDEX 


i+IF TOP LINE THEN RETURN 
i+ DECR CURSOR V INDEX 

i GET CURSOR V INDEX 

i+ GENERATE BASE ADDRESS 

+ ADD WINDOW LEFT OFFSET 
i TO BASL 


sESC '@°? 

i IF SO DO HOME AND CLEAR 
i ESC-A OR B CHECK 

i A, ADVANCE 

i B, BACKSPACE 

i+ ESC-C OR D CHECK 

i C, DOWN 

i D, GO UP 

i ESC-E OR F CKECK 

i; &, CLEAR TO END OF LINE 
i ELSE NOT F. RETURN 

i /RRAO9B1 

i /RRAOFB1 

i CODE=CLREOP /RRAO981 

i DO 40/80 /RRAO?81 
1981-82, APPLE’ 

i /RRAO9B1 

iESC F IS CLR TO END OF PAGE 


i SAVE CURRENT LINE NO. ON STACK 
i CALC BASE ADDRESS 

i CLEAR TO EOL. (SETS CARRY) 

i CLEAR FROM H INDEX=0 FOR REST 
i; INCREMENT CURRENT LINE ND. 

i (CARRY IS STILL SET) 

i; DONE TO BOTTOM OF WINDOW? 

i NO, KEEP CLEARING LINES. 

i YES, VTAB TO CURRENT LINE. 

i /RRAOTB1 

i /RRAOIB81 

i /RRAOIB1 

i; CODE=HOME/RRAOIB81 

i; DO 40/80 /RRAO9B1 

;+OUR HERO... 

i /RRAOPB1L 

i INIT CURSOR V 

i AND H INDICES 





A 


i THEN CLEAR TO END OF PAGE. 

i (ALWAYS TAKEN) 

i /RRAOPB81 

iCURSOR TO LEFT OF INDEX 

i (RET CURSOR H=0) 

i INCR CURSOR V. (DOWN 1 LINE) 


i+ OFF SCREEN? 

i NO, SET BASE ADDR 

i DECR CURSOR V. (BACK TO BOTTOM) 
i /RRAO9B1 

i /RRAO9B1 

i CODE=SCROLL/RRAOIB1 

+ DO 40/80 /RRAO981 


i /RRAO9IB1 

i /RRAO9B1 

i PRESERVE AC/RRAO@81 

i FLAG->N /RRAOGB81 

i FLAG->C /RRAO981 

i RESTORE AC/RRAOI81 

i FLAG->N /RRAO?81 

i /RRAOIB1L 

i+ NOT BANKSWITCHING/RRAO981 

i FORCE MB TXTPAGE/RRAO981 

i FLAG->N /RRAO981 
RESTORE BANK/RRAO9S81 

i+ENABLE IRQ/RRAOV81 

iNOW DISABLE/RRAO9B1 

i =>WAS SLOTS/RRAOTB1 

i BANK-IN CX/RRAOPB1 

i /RRAOIB1 

i WHAT VID BANK/PAGE?/RRAO981 

i; =>NOT BANKED/RRAO9B1 

i41T‘S PAGE1/RRAO9S81 

i FORCE PAGE2/RRAO981 

i /RRAO9B1 

i CONTINUE VIDEO/RRAO981 























FC9A: EA 237 NOP 


FC9B: EA 238 NOP 
FCoC: 239 ELSE 
Ss 240 SCROLL LDA 
s 241 PHA 
s 242 JSR 
Ss 243 SCRLi LDA 
s 244 STA 
Ss 245 LDA 
Ss 246 STA 
Ss 247 LDY 
s 248 DEY 
s 249 PLA 
s 250 ADC 
s 251 CMP 
Ss 252 BCS 
s 253 PHA 
s 254 JSR 
s 255 SCRL2 LDA 
s 256 STA 
s 257 DEY 
Ss 258 BPL. 
Ss 259 BMI 
s 260 SCRL3 LDY 
s 261 JSR 
Ss 262 BCS 
Foo: 263 FIN 
Fos: 0001 264 DO 
FC9C: FC9C 265 CLREOL EqQu 
Fco9c: 18 266 cLC 
FC9D: BO 267 DFB 
FC9E: FC9E 268 CLREOLZ EQu 
FC9E: 38 269 SEC 
FC9F: 84 1F 270 STY 
FCA1:AO 03 271 LDY 
FCA3: 90 CD FC72 272 BCC 
FCAS: CB 273 INY 
FCA6:DO CA FC72 274 BNE 
FCAS: 275 ELSE 
s 276 CLREOL LDY 
s 277 CLEOLZ LDA 
s 278 CLEOL2 STA 
s 279 INY 
s 280 cPY 
s 281 BCC 
s 282 RTS 
FCAS: 283 FIN 
FCA8: 38 284 WAIT SEC 
FCA9?: 48 285 WAIT2 PHA 
FCAA: E9 O1 286 WAITS SBC 
FCAC: DO FC FCAA 287 BNE 
FCAE: 68 268 PLA 
FCAF:E9 O1 289 SBC 
FCB1:DO Fé FCA? 290 BNE 
FCB3: 60 291 RTS 
FCB4:E6 42 292 NXTA4 INC 
FCB6:DO 02 FCBA 293 BNE 
FCB8:E4 43 294 INC 
FCBA: AS 3C 295 NXTAL LDA 
FCBC:C5 3E 296 CMP 
FCBE: AS 3D 297 LDA 
FCCO:E5 3F 298 SBC 
FCC2:E6 3C 299 INC 
FCC4:DO 02 Fccs8 300 BNE 
FCC6:E6 3D 301 INC 
FCC8: 60 302 RTS4B RTS 
FCC9:AO 4B 303 HEADR LDY 
FCCB: 20 DB FC 304 JSR 
FCCE: DO F9 Fcc? 305 BNE 
FCDO: 69 FE 306 ADC 
FCD2: BO FS FCC9 307 BcS 
FCD4: AO 21 308 LDY 
FCD6: 20 DB FC 309 WRBIT JSR 
FCD9: c8 310 INY 
FCDA: C8 311 INY 
FCDB: 88 312 ZERDLY DEY 
FCDC: DO FD FCDB 313 BNE 
FCDE: 90 OS FCES 314 Bcc 
FCEO: AO 32 315 LpyY 
FCE2: 88 316 ONEDLY DEY 
FCE3: DO FD FCE2 317 BNE 
FCES: AC 20 CO 318 WRTAPE LDY 
FCE8: AO 2C 319 LDY 
FCEA: CA 320 DEX 
FCEB: 60 321 RTS 
FCEC: A2 08 322 RDBYTE LDX 
FCEE: 48 323 RDBYT2 PHA 
FCEF: 20 FA FC 324 JSR 
FCF2: 68 325 PLA 
FCF3: 24 326 ROL 
FCF4: AO 3A 327 LDY 
FCF6: CA 328 DEX 
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WNDTOP 


VTABZ 
BASL 
BAS2L 
BASH 
BAS2H 
WNDWDTH 


#601 
WNDBTM 
SCRL3 


VTABZ 
(BASL), Y 
(BAS2L), Y 


SCRL2 
SCRL1 
#$00 
CLEOLZ 
VTAB 


APPLE2E 
ca 


$BO 
* 


S1F 
#3 
xGOTOCX 


xGOTOCX 


CH 
#SA0 
(BASL)., Y 


WNDWDTH 
CLEOL2 


#501 
WAITS 


#$01 
WAIT2 


A4L 
NXTAL 
A4SH 
AiL 
A2L 
AlH 
A2H 
A1iL 
RTS4B 
AlH 


#$4B 
ZERDLY 
HEADR 
#$FE 
HEADR 
#$21 
ZERDLY 


ZERDLY 
WRTAPE 
#932 


ONEDLY 
TAPEOUT 
#$2C 
#608 
RD2BIT 


A 
#S3A 





7 /RRAOG81 
i /RRAOVB1 
1 /RRAOV81 
START AT TOP OF SCROLL WINDOW 


i GENERATE BASE ADDRESS 
i COPY BASL,H 
+ TO BAS2L,H 


i} INIT Y TO RIGHTMOST INDEX 
i OF SCROLLING WINDOW 


+ INCR LINE NUMBER 
+ DONE? 
+ YES, FINISH 

i; FORM BASL,H (BASE ADDR) 
i+ MOVE A CHAR UP ONE LINE 


i NEXT CHAR OF LINE 


#NEXT LINE 

;CLEAR BOTTOM LINE 

iGET BASE ADDR FOR BOTTOM LINE 
i#CARRY IS SET 

i /RRAO9B1 

i 7RRAOIB1 

i /RRAOIB1 

i SAY ‘EOL ‘/RRAOIB81 

i ‘BCS’ OPCODE /RRAO981 

i /RRAOGB1 

iSAY ‘EOLZ’/RRAO9S81 

i VIDEO’S YSAV1/RRAO981 

+ CODE=EOL/RRAO981 

i->IT‘S EOL/RRAOT81 

i CODE-EOLZ/RRAO9B1 

i ~PALWAYS/RRAOPB1 

i /RRAOIB1 

i+ CURSOR H INDEX 

i STORE BLANKS FROM ‘HERE’ 

i TO END OF LINES (WNDWDTH) 


i 7RRAOIB81 


41.0204 USEC 
4 (134271 2#A+512%A#A) 


7 INCR 2~-BYTE A4 
i+ AND Al 


i INCR 2-BYTE Al. 
i AND COMPARE TO A2 
i (CARRY SET IF >=) 


iWRITE A¥256 
i HALF CYCLES 
i (650 USEC EACH) 


“LONG 1° 


i THEN A ‘SHORT 0° 

i (400 USEC) 

+WRITE TWO HALF CYCLES 
i OF 250 USEC (‘0’) 

i OR SOO USEC (‘17) 


iY IS COUNT FOR 
i TIMING LOOP 


78 BITS TO READ 
;READ TWO TRANSITIONS 
i (FIND EDGE) 


iNEXT BIT 
i COUNT FOR SAMPLES 








FCF7: 
FCF?: 
FCFA: 
FCFD: 
FCFE: 
FDOL: 
FDO3: 


FDOS 


FDO7: 
FDO9: 


FDOB 


FDOC: 


FDOE 
FD10 
FD11 


FD13: 


FDIS 


FD17: 


Fois 


FDIB: 


FD1B 
FD1B 


FD1D: 
FD20: 
FD21: 
Fb21: 
Fb24: 
FD26: 


FD29 
FD29 


FD29: 
FD29: 
FbDec: 
FDeD: 
FD2E: 


Ao 
ac 
EA 


20 
Ao 
4c 


8D 


60 


: 60 


SF 
40 
28 


38 


06 


B4 


oc 


B4 


06 


21 


as 
oc 


F3 


32 


FF 


00 
ED 


32 


88 
1D 
98 
OA 
Fe 


3A 


13 
pc 
ED 
BE 
33 
ED 
O1 


F3 


35 
95 
02 
28 
EO 


FCEE 


FC 


co 


FCFD 


00 
ooo1 
FD1R 

FB 


FDAL 
FD 


FB 


co 


ooo1 
FD 


FB 


FD2F 


e001 


02 


FD 


02 


FD71 


FD6é2 


FDSF 
FF 


FD75 


FD 
FD 


FD 


FD67 


FD 


FD7E 


329 


331 
332 
333 
334 
335 


337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 


360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 

372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395. 
396 
397 
398 
399 
400 
401 

402 
403 
404 
405 
406 
407 
408 
409 
410 
411 

412 
413 
414 
415 


417 
418 
419 
420 


BNE RDBYT2 
RTS 
RD2BIT JSR RDBIT 
RDBIT DEY 
LDA TAPEIN 
EOR LASTIN 
BPL RDBIT 
EOR LASTIN 
STA LASTIN 
cPYy #$80 
RTS 
RDKEY LDY CH 
LDA (BASL), 
PHA 
AND #$3F 
ORA #$40 
STA (BASL). Y 
PLA 
JMP (KSWL ) 
DO APPLE2E 
KEYIN EQU * 
Lby #6 
JUMP GOoTOCcX 
NOP 
RDESC EQU * 
JSR RDKEY 
LDY #7 
UMP GoTocXx 
* 
#% RETURN FROM GOTOCX HERE 
* 
STA SETSLOTCXROM 
PLP 
RTS 
ELSE 
KEYIN INC RNDL 
BNE KEYIN2 
INC RNDH 
KEYIN2 BIT KBD 
BPL KEYIN 
STA (BASL), Y 
LDA KBD 
Bil KBDSTRB 
FIN 
RTS 
DO APPLE2E 
Esc JSR RDESC 
SE 
Esc JSR RDKEY 
FIN 
JSR ESCNEW 
RDCHAR JSR RDKEY 
CMP #$9B 
BEQ ESC 
RTS 
NOTCR LDA INVFLG 
PHA 
LDA #$FF 
Do APPLE2E 
NOP 
NOP 
ELSE 
STA INVFLG 
FIN 
LDA IN, X 
JSR cOUT 
PLA 
STA INVFLG 
LDA IN, X 
CMP #588 
BEQ BCKSPC 
CMP #998 
BEG CANCEL 
cPx #$F8 
BCC NOTCR1 
JSR BELL 
NOTCR1 INX 
BNE NXTCHAR 
CANCEL. LDA #$DC 
JSR cOUT 
GETLNZ JSR CROUT 
GETLN LDA PROMPT 
JSR COUT 
LDx #$01 
BCKSPC TXA 
BEQ GETLNZ 
DEX 
NXTCHAR JSR RDCHAR 
CMP #S95 
BNE CAPTST 
LDA (BASL),Y 
CAPTST cmMP #SE0 
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+DECR Y UNTIL 
i TAPE TRANSITION 


i SET CARRY ON Y-REG. 


i SET SCREEN TO FLASH 


iGO TO USER KEY-1N 


i RDKEY/RRAO981 
i /RRAOIBI 
i 7RRAOB1 


iGET A KEY 
i CODE=FIXIT 


i RESTORE BANK/RRAOQS81 
+ RESTORE IRG/RRAOQP81 
;RETURN TO CALLER/RRAOSS1 
i /RRAO9BL 
i; INCR RND NUMBER 


i KEY DOWN? 

; LOOP UNTIL WE GET ONE 
; REPLACE FLASHING SCREEN 
;+GET KEYCODE 

iCLR KEY STROBE 

i /RRAOIB1 


i /RRAO9B1L 

i /RRAOIB1L 

i /RRAOIBL 

iGET KEYCODE 

7 /RRAOIBIL 

iHANDLE ESC FUNCTION 
iGO READ KEY 

* “ESC ¢> 

i YES, DON’T RETURN 


i /RRAOPBL 

» DON’T CHANGE INPUT/RRAO81 

i TO NORMAL/RRAO9B1 

i /RRAOIB81 

i CONVERT TYPED CHAR TO ‘NORMAL ’ 
i /RRAOPB81 


i ECHO TYPED CHAR 


i CHECK FOR EDIT KEYS 
i — BACKSPACE 


i = CONTROL-X 

i MARGIN? 

i YES, SOUND BELL 

i+ ADVANCE INPUT INDEX 

i BACKSLASH AFTER CANCELLED LINE 


i+ OUTPUT ‘CR’ 
i QUTPUT PROMPT CHAR 


4 INIT INPUT INDEX 

i+ WILL BACKSPACE TO O 
i;USE SCREEN CHAR 

i FOR CONTROL-U 


i; LOWER CASE? 









































FD84 421 BCC ADDINP 





0001 422 bo APPLE2E 1 /RRAOPB1 
423 AND #OFF +DON’T CONVERT TO UPPER CASE! /RRAO9B81 
424 ELSE + /RRAOP81 
425 AND *$DF i+ SHIFT TO UPPER CASE 
426 FIN 1 /RRAOFB1 
427 ADDINP STA IN, X +ADD TO INPUT BUFFER 
428 CMP #$8D 
FD3D 429 BNE NOTCR 
430 JSR CLREOL iCLR TO EOL IF CR 
431 CROUT LDA #$8D 
FDED 432 BNE COUT i (ALWAYS) 
433 PRAL LDY A1lH i PRINT CR, Al IN HEX 
434 LDX A1L 
435 PRYX2 JSR CROUT 
436 JSR PRNTYX 
437 LDY #600 
438 LDA #$AD iPRINT ‘-‘ 
FD 439 JMP COUT 
440 XAMB LDA AIL 
441 ORA #$07 i+SET TO FINISH AT 
442 STA AaL i MOD 8=7 
443 LDA A1H 
444 STA A2H 
445 MODSCHK LDA A1L 
446 AND #507 
FDB6 447 BNE DATAQUT 
FD 448 XAM JSR PRAL 
449 DATAOUT LDA #SAO 
FD 450 JSR COUT i OUTPUT BLANK 
4S1 LDA (A1L),Y 
FD 452 JSR PRBYTE i; OUTPUT BYTE IN HEX 
453 JSR NXTAL 
FDAD 454 BCC MOD8CHK iNOT DONE YET. GO CHECK MOD 8 
455 RTS4C RTS i DONE. 
456 XAMPM LSR cy i; DETERMINE IF MONITOR MODE IS 
FDB3 457 BCC XAM i EXAMINE, ADD OR SUBTRACT 
458 LSR A 
459 LSR a 
460 LDA A2L 
FDDI 461 BCC ADD 
462 EOR #$FF + FORM 2’°S COMPLEMENT FOR SUBTRACT. 
463 ADD ADC AIL 
464 PHA 
465 LDA #$BD i PRINT » THEN RESULT 
FD 466 JSR COUT 
467 PLA 
468 PRBYTE PHA iPRINT BYTE AS 2 HEX DIGITS 
469 LSR A i; (DESTROYS A-REG) 
470 LSR a 
471 LSR A 
472 LSR A 
FD 473 JSR PRHEXZ 
474 PLA 
475 PRHEX AND #30F i PRINT HEX DIGIT IN A-REG 
476 PRHEXZ ORA #$BO iLSBITS ONLY. 
477 cMP #SBA 
FDED 478 BCC COUT 
479 ADC #506 
cole) 480 COUT JMP (CSWL) i VECTOR TO USER OUTPUT ROUTINE 
481 COUT1 CMP #$A0 
FDF6 482 BCC COUTZ iDON’T OUTPUT CTRL‘’S INVERSE. 
483 AND INVFLG i MASK WITH INVERSE FLAG 
484 COUTZ STY YSAV1 i SAVE Y-REG 
485 PHA i SAVE A-REG 
486 JSR VIDWAIT i; OUTPUT CHR & CHECK FOR CTRL~S 
487 PLA i RESTORE A-REG 
488 LDY YSAV1 i AND Y-REG 
487 RTS i RETURN TO SENDER... 
490 BL1 DEC YSAV 
FDA3 491 BEG xXxAmMe 
492 BLANK DEX i BLANK TO MON 
FEID 493 BNE SETMDZ i AFTER BLANK 
494 cmMP #$BA i DATA STORE MODE? 
FDC6 495 BNE XAMPM i NO; XAM, ADD, OR SUBTRACT. 
496 STOR STA MODE iKEEP IN STORE MODE 
497 LDA AaL 
498 STA (A3BL),Y i+ STORE AS LOW BYTE AT (A3) 
499 INC A3L 
FE17 500 BNE RTSS i INCR A3, RETURN. 
501 INC A3H 
502 RTSS RTS 
503 SETMODE LDY YSAV i SAVE CONVERTED ’: 4, ‘+%, 
OL 504 LDA IN-1,Y i f= *. % AS MODE 
505 SETMDZ STA MODE 
506 RTS 
S07 LT LDX #$01 
508 LT2 LDA A2L, X i COPY A2 (2 BYTES) TO 
So? STA AAL, X i 44 AND AS 
510 STA ASL, X 
Siti DEX 
FE22 512 BPL LT2 
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FE2B: 60 513 RTS 

FE2C:B1 3C 514 MOVE LDA (A1L),Y +#MOVE (Al) THRU (A2) TO (A4) 
FE2E:91 42 515 STA (A4L),Y 

FE30: 20 B4 FC 516 JSR NXTA4 

FE33: 90 F7 FE2C 517 BCC MOVE 

FESS: 60 518 RTS 

FE36:B1 3C 519 VFY LDA (AIL), Y i VERIFY (A1) THRU (A2) 
FE38:D1 42 520 CMP (A4L),Y i WITH (A4) 

FESA:FO 1C FESB 521 BEG VFYOK 

FESC; 20 92 FD S22 JSR PRAL 

FESF:B1 3C 523 LDA (AIL), Y 

FE41:20 DA FD $24 JSR PRBYTE 

FE44:A9 AO 525 LDA #SAO 

FE46: 20 ED FD S26 JSR COUT 

FE49: AD AB 527 LDA #$AB 

FE4B: 20 ED FD 528 JSR cOUT 

FE4E: Bi 42 529 LDA (A4L),¥ 

FESO: 20 DA FD 530 JSR PRBYTE 

FES3:A9 A? 531 LDA #SAP 

FESS: 20 ED FD 532 JSR COUT 

FES8: 20 B4 FC 533 VFYOK JSR NXTA4 

FESB: 90 D9 FE36 534 BCC VFY 

FESD: 60 535 RTS 

FESE: 20 75 FE 536 LIST JSR A1PC i MOVE Al (2 BYTES) TO 
FE61:A9 14 537 LDA #514 i; PC IF SPEC’D AND 
FE63: 48 538 LIST2 PHA i; DISASSEMBLE 20 INSTRUCTIONS. 
FE464: 20 DO FB 539 JSR INSTDSP 

FE67: 20 53 F9 540 JSR PCADJ i; ADJUST PC AFTER EACH INSTRUCTION, 
FE6A: 85 3A S41 STA PCL 

FE6C: 84 3B 542 STY PCH 

FEGE: 68 543 PLA 

FE6F: 38 544 SEC 

FE7O: E9 Of 545 SBC #$01 iNEXT OF 20 INSTRUCTIONS 
FE72: DO EF FE63 546 BNE LIST2 

FE74: 60 547 RTS 

FE75S: 8A 548 A1PC TXA i IF USER SPECIFIED AN ADDRESS, 
FE76:FO O7 FE7F 549 BEQ@ A1PCRTS i COPY IT FROM Ai TO PC 
FE78: BS 3¢ 550 A1PCLP LDA A1L,X 4YEP, SO COPY IT 

FE7A: 95 34 Sot STA PCL. X 

FE7C: CA 552 DEX 

FE7D: 10 F9 FE78 553 BPL AIPCLP 

FE7F: 60 554 AIPCRTS RTS 

FE80: AO 3F 555 SETINV LDY #$3F ;SET FOR INVERSE VID 
FE82:DO 02 FE86 556 BNE SETIFLG i VIA COUTL 

FE84: AO FF 557 SETNORM LDY #9FF iSET FOR NORMAL VID 
FE86:84 32 558 SETIFLE STY INVFLG 

FES8: 60 559 RTS 

FEB89: A? 0O 560 SETKBD LDA #600 i DO ‘IN#O’ 

FE8B:85 36 561 INPORT STA A2L i DO ‘IN#AREG‘ 

FES8D: A2 38 562 INPRT LDXx #KSWL 

FESF:AO 1B 563 LDY #KEYIN 

FE91:DO GB FESR 564 BNE IOPRT 

FE93: A9 00 565 SETVID LDA #300 7DO ‘PR#O’ 

FE9S: 85 3 566 OUTPORT STA AaL i DO ‘PR#AREG’ 

FE97:A2 36 567 OUTPRT LDXx #CSWL 

FE99: AO FO 568 LDY #COUT1 

FE9B: AS 3E 569 ILOPRT LDA A2L i SET INPUT/OUTPUT VECTORS 
FE9D: 29 OF 570 AND #50F 

FE9F:FO 06 FEA7Z 571 BEG IOPRT1 

FEA1:09 CO S72 ORA #<IOADR 

FEA3: AO 00 573 LDY #00 

FEAS: FO 02 FEAQ 574 BEG IOPRT2 

FEA7: A? FD 575 IOPRT1 LDA #<COUTIL 

FEA9: FEA9 576 IOPRT2 EQU * 

FEA?: 94 00 577 STY LOCO, x 

FEAB: 95 01 578 STA LOC1, xX 

FEAD: 60 579 RTS 

FEAE: EA 580 NOP 

FEAF: 00 581 CKSUMFIX DFB te} i 7RRAOIB1 

FEBO S82 * i —->CORRECT CKSUM AT CREATE TIME. 

FEBO: 4C 00 EO 583 XBASIC JMP BASIC i TO BASIC, COLD START 
FEB3: 4C 03 EO 584 BASCONT JMP BASIC2 i TO BASIC, WARM START 
FEB6: 20 75 FE 585 GO JSR APC 4 ADDR TO PC IF SPECIFIED 
FEB?: 20 SF FF 586 JSR RESTORE i RESTORE FAKE REGISTERS 
FEBC: 6C 3A 00 587 JMP (PCL) i AND GO! 

FEBF:4C D7 FA 588 REGZ JMP REGDSP iGO DISPLAY REGISTERS 
FEC2: 60 589 TRACE RTS i TRACE IS GONE 

FEC3: EA 590 NOP 

FEC4: 60 591 STEPZ RTS + STEP IS GONE 

FECS:C2 F2 F9 El 592 ASC ‘Bryan’ 

FECA: 4C F8 03 593 USR JMP USRADR i; JUMP TO CONTROL~Y VECTOR IN RAM 
FECD: A? 40 594 WRITE LDA #$40 i TAPE WRITE ROUTINE 
FECF:20 C9 FC 595 JSR HEADR i WRITE 10-SEC HEADER 
FED2:AO 27 596 LDY #$27 

FED4: A2 00 597 WR1 LDX #$00 

FED6: 41 3C 598 EOR (AIL, X) 

FEDS: 48 599 PHA 

FED9: Al 3C 600 LDA (AIL, X) 

FEDB: 20 ED FE 601 JSR WRBYTE 

FEDE: 20 BA FC 602 JSR NXTAL 

FEE1:AO 1D 603 LDY #$1D 

FEES: 68 604 PLA 
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FEE4:90 EE FED4 605 BCC 
FEE6:AO 22 606 LDY 
FEES: 20 ED FE 607 JSR 
FEEB:FO 4D FF3A 608 BEG 
FEED: A2 10 609 WRBYTE LDX 
FEEF: OA 610 WRBYT2 ASL. 
FEFO: 20 Dé FC 611 JSR 
FEF3: DO FA FEEF 612 BNE 
FEFS: 60 613 RTS 
FEF6:20 00 FE 614 CRMON JSR 
FEF9?: 68 615 PLA 
FEFA: 68 616 PLA 
FEFB: DO 6C FF69 617 BNE 
FEFD: 20 FA FC 618 READ JSR 
FFOO:A9 16 619 LDA 
FFO2: 20 C9 FC 620 JSR 
FFOS:85 2€ 621 STA 
FFO7: 20 FA FC 622 JSR 
FFOA: AO 24 623 RD2 LDY 
FFOC: 20 FD FC 624 JSR 
FFOF: BO F? FFOA 625 BCS 
FF11:20 FD FC 626 JSR 
FF14: AO 3B 627 LDY 
FF16:20 EC FC 628 RDS JSR 
FF19: 81 3C 629 STA 
FF1B:45 2£ 630 EOR 
FF1D:85 2— 631 STA 
FF1F:20 BA FC 632 JSR 
FF22:A0 35 633 LbY 
FF24:90 FO FF16 634 BCC 
FF26:20 EC FC 635 JSR 
FF29:CS 26 636 CMP 
FF2B:FO OD FF3A 637 BEG 
FF2D:A9 CS 638 PRERR LDA 
FF2F:20 ED FD 639 JSR 
FF32:A9 D2 640 LDA 
FF34: 20 ED FD 641 JSR 
FF37:20 ED FD 642 JSR 
FFSA: A? 87 643 BELL LDA 
FF3C:4C ED FD 644 JMP 
FFSF:AS 48 645 RESTORE LDA 
FF41: 48 646 PHA 
FF42:A5 45 647 LDA 
FF44:A& 46 648 RESTR1 LDX 
FF46:A4 47 649 LDy 
FF48: 28 650 PLP 
FF49: 60 651 RTS 
FF4A: 85 45 652 SAVE STA 
FF4C: B86 46 653 SAV1 STX 
FF4E: 84 47 654 STY 
FFSO: 08 655 PHP 
FFS1:68 656 PLA 
FFS2:85 48 657 STA 
FFS4: BA 658 TS*% 
FFSS:86 49 659 STX 
FFS7: D8 650 cLD 
FFS8: 60 661 RTS 
FF59: 20 84 FE 662 OLDRST JSR 
FFSC:20 2F FB 663 JSR 
FFSF: 20 93 FE 664 JSR 
FF62:20 89 FE 665 JSR 
FF6S: DS 666 MON CLD 
FF46: 20 3A FF 667 JSR 
FF69: AI AA 668 MONZ LDA 
FF6B:85 33 669 STA 
FF6D: 20 67 FD 670 JSR 
FF70.20 C7 FF 671 JSR 
FF73: 20 A7 FF 672 NXTITM JSR 
FF76:84 34 673 STY 
FF78: AO 17 674 LDY 
FF7A: 88 675 CHRSRCH DEY 
FF7B: 30 E8 FF65 676 BMI 
FF7D: D9 CC FF 677 CMP 
FFeO: DO FS FF7A 678 BNE 
FF82:20 BE FF 679 JSR 
FFB85: A4 34 680 LDY 
FF87:4C 73 FF 681 JMP 
FFBA: A2 03 682 DIG LDX 
FFSC: OA 683 ASL 
FFS&D: OA 684 ASL 
FFSE: 0A 685 ASL. 
FFEF: OA 686 ASL 

FF9O: OA 687 NXTBIT ASL 
FF91:26 3E 688 ROL 
FF93: 26 3F 689 ROL 
FF?S: CA 690 DEX 
FF96: 10 F8 FF9O 691 BPL 
FF98: AS 31 692 NXTBAS LDA 
FF9A: DO 06 FFA2 693 BNE 
FF9C:BS 3F 694 LDA 
FF9E: 95 3D 695 STA 
FFAO: 95 41 696 STA 


Monitor Firmware Listing 





WR1 
#322 
WRBYTE 
BELL 
#$10 
A 
WRBIT 
WRBYT2 
BLI i HANDLE CR AS BLANK 
i THEN POP STACK 
i AND RETURN TO MON 
MONZ i (ALWAYS) 
RD2BIT i TAPE READ —- FIND TAPEIN EDGE 
#316 i DELAY 3.5 SECONDS 
HEADR 
CHKSUM i INITIAL CHECKSUM = $FF 
RD2BIT i FIND AN EDGE 
#$24 i LOOK FOR SYNC BIT 
RDBIT i (SHORT 0) 
RD2 i LOOP ‘TIL FOUND 
RDBIT i SKIP 2ND HALF CYCLE 
#$3B i INDEX FOR O/1 TEST 
RDBYTE iREAD A BYTE 
(AIL, X) i4PUT IT AT (AL) 
CHKSUM i UPDATE RUNNING CHECKSUM 
CHKSUM 
NXTAL 7 INCR Al, COMPARE TO A2 
#335 i+ COMPENSATE 0/1 INDEX 
RDS jREPEAT ‘TIL DONE. 
RDBYTE i READ CHECKSUM BYTE 
CHKSUM i DOES THE RECORDED CHKSM MATCH OURS? 
BELL i; YEP, READ OK. BEEP AND RETURN 
#3C5 iPRINT ‘ERR’, THEN FALL INTO 
cOUT i FWEEPER. 
#$D2 
COUT 
couT 
#387 i MAKE A JOYFUL NOISE, THEN RETURN. 
COUT 
STATUS i RESTORE 6502 REGISTER CONTENTS 
i USED BY DEBUG SOFTWARE 
ASH 
XREG 
YREG 
ASH i SAVE 6502 REGISTER CONTENTS 
XREG i FOR DEBUG SOFTWARE 
YREG 
STATUS 
SPNT 
SETNORM i SET SCREEN MODE 
INIT i) AND INIT KBD/SCREEN 
SETVID i AS 1/0 DEVS. 
SETKBD 
iMUST SET HEX MODE! 
BELL i FWEEPER 
#SAA i ’%¢ PROMPT FOR MONITOR 
PROMPT 
GETLNZ jREAD A LINE OF INPUT 
ZMODE i CLEAR MONITOR MODE, SCAN IDX 
GETNUM iGET ITEM, NON-HEX 
YSAV i CHAR IN A-REG 
#917 i X-REG=O IF NO HEX INPUT 
MON i COMMAND NOT FOUND, BEEP & TRY AGAIN 
CHRTBL, Y i FIND COMMAND CHAR IN TABLE 
CHRSRCH iNOT THIS TIME 
TOSUB iGOT IT! CALL CORRESPONDING SUBROUTINE 
YSAV i PROCESS NEXT ENTRY ON HIS LINE 
NXTITM 
#603 
A 
A i GOT HEX DIGIT, 
a4 i SHIFT INTO A2 
4 
A 
AaL 
A2H 
i LEAVE X=$FF IF DIG 
NXTBIT 
MODE 
NXTBS2 i IF MODE IS ZERO, 
A2H, X i THEN COPY 42 TO Al AND AG 
A1H, X 
AH, X 























FFA2:E8 697 NXTBS2 INX 





FFA3: FO F3 FF98 698 BEQ NXTBAS 

FFAS: DO 06 FFAD 699 BNE NXTCHR 

FFA7: A2 00 700 GETNUM LDX #300 i CLEAR A2 

FFA?: 86 3E 701 STX AaL 

FFAB: 86 3F 702 STX A2H 

FFAD: B9 00 02 703 NXTCHR LDA IN, Y i GET CHAR 

FFBO: C8 704 INY 

FFB1: 49 BO 705 EOR #$BO 

FFB3:C9 OA 706 cMP #50A 

FFBS:90 D3 FF8A 707 BCC DIG i BR IF HEX DIGIT 

FFB7: 69 88 708 apc #$88 

FFB9:C9 FA 709 cmMP #5FA 

FFBB: BO CD FFBA 710 Bcs DI¢ 

FFBD: 60 7il RTS 

FFBE: A? FE 712 TOSUB LDA #<G0 i DISPATCH TO SUBROUTINE, BY 
FFCO: 48 713 PHA i PUSHING THE HI-ORDER SUBR ADDR, 
FFC1:B9 E3 FF Tt14 LDA SUBTBL, Y i THEN THE LO-ORDER SUBR ADDR 
FFC4: 48 715 PHA i+ ONTO THE STACK, 

FFCS: AS 31 716 LDA MODE i (CLEARING THE MODE, SAVE THE OLD 
FFC7: AO 00 717 ZMODE LDY #%00 i MODE IN A-REG), 

FFC9: 84 31 718 STY MODE 

FFCB: 60 719 RTS i+ AND ‘RTS’ TO THE SUBROUTINE! 
FFCC: BC 720 CHRTBL DFB SBC +°C (BASIC WARM START) 

FFCD: B2 72i DFB $B2 i*Y (USER VECTOR) 

FFCE: BE 722 DFB $BE i*E (OPEN AND DISPLAY REGISTERS) 
FFCF: B2 723 DFB $B2 iT (ONCE WAS TRACE; NEVER USED. ) 
FFDO: EF 724 DFB SEF iV (MEMORY VERIFY) 

FFD1: C4 72' DFB $c4 aK  CIN#SLOT) 

FFD2: B2 726 DFB $Be i (ONCE WAS STEP; NOW NEVER USED. ) 
FFD3: Ag wer DFB SAP (PR#SLOT) 

FFD4: BB 728 DFB $BB (BASIC COLD START) 

FFDS: A6 729 DFB SAS (SUBTRACTION) 

FFD6: A4 730 DFB $A4 (ADDITION) 

FFD7: 06 731 DFB $06 (MEMORY MOVE?) 

FFD8S: 95 732 DFB $95 (DELIMITER FOR MOVE, VFY) 
FFD9: 07 733 DF $07 (SET NORMAL VIDEO) 

FFDA: 02 734 DFB $02 (SET INVERSE VIDEO?) 

FFDB: 0S 735 DFB $05 (DISASSEMBLE 20 INSTRS) 
FFDC: FO 736 DFB $FO (WRITE TO TAPE) 

FFDD: 00 737 DFB $00 (EXECUTE PROGRAM) 

FFDE: EB 738 DFB $EB (READ FROM TAPE) 

FFDF: 93 739 DFB $93 as (MEMORY FILL) 

FFEO: A7 740 DFB SA7 i’. * (ADDRESS DELIMITER) 
FFE1:C6 74l DFB $C6 i “CR’ (END OF INPUT) 

EFEZ292 742 DFB $99 i BLANK 

FFE3: B2 743 SUBTBL DFB $B2 i; TABLE OF LO-ORDER MONITOR ROUTINE 
FFE4: C9 744 DFB $C i DISPATCH ADDRESSES 

FFES: BE 745 DFB $BE 

FFE6é: C1 746 DFB $C1 

FFE7:35 747 DFB $35 

FFES8: 8C 748 DFB $8C 

FFE9: C4 749 DFB $C4 

FFEA: 96 750 DFB $96 

FFEB: AF 751 DFB SAF 

FFEC: 17 752 DFB $17 

FFED: 17 753 DFB $17 

FFEE: 2B 754 DFB $2B 

FFERSLIE 755 DFB $1F 

FFFO: 83 756 DFB $83 

BREA 7E 757 DFB S7F 

FFF2: 5D 758 DFB $5D 

FFF3: CC 759 DFB $CC 

FFF4: BS 760 DFB $B5 

FFFS: FC 761 DFB SFC 

FFF: 17 762 DFB $17 

FFF7: 17 763 DFB $17 

FFF8: FS 764 DFB $FS 

FFF9: 03 765 DFE $03 

FFFA: FB 03 766 DW NMI i NON-MASKABLE INTERRUPT VECTOR 
FFFC: 62 FA 767 DW RESET i RESET VECTOR 

FFFE: 40 FA 768 DW IRQ i INTERRUPT REQUEST VECTOR 


Monitor ROM Listings 








Monitor Symbol Table, 
Sorted by Symbol 


3D A1H gc AIL FE7S A1PC FE78 A1PCLP 
FE7F A1PCRTS 3F A2H SE A2l. 41 ASH 
40 ASL 43 ASH 42 A4l 45 ASH 
44 ASL 45 acc FDD1 ADD FD84 ADDINP 
FBF4 ADVANCE ?03F5 AMPERV Ol APPLE2E FB60 APPLEITI 
? 2B BAS2H ? 2A BAS2L FBC1 BASCALC FBDO BASCLC2 
?FEB3 BASCONT 29 BASH £000 BASIC £003 BASIC2 
28 BASL FD71 BCKSPC FBD9 BELLI FBE4 BELL2 
FF3A BELL FEOO BLI ?FEO4 BLANK FA4C BREAK 
O3FO BRKV FC1O BS FD62 CANCEL FD7E CAPTST 
F9B4 CHARI F9BA CHAR2 2E CHKSUM FF7A CHRSRCH 
24 CH FFCC CHRTBL ?FEAF CKSUMFIX 7CO05S9 CLRANO 
?COSB CLRANI ?COSD CLRAN2 ?COSF CLRANS FC9C CLREOL 
?PFCIE CLREOLZ ?FC42 CLREOP CFFF CLRROM F838 CLRSC2 
F83C CLRSC3 ?F832 CLRSCR F836 CLRTOP 30 COLOR 
FDED COUT FDFO CouT1 FDF& COUTZ FD8E CROUT 
FC6é2 CR ?FEF6 CRMON ? 37 CSWH 36 CSWL 
25 cv FDB& DATAOUT FFSA DIG FBO2 DISKID 
FAS ERR FD2F ESC Fc2c ESCc1 FBAS ESCNEW 
FB9B ESCNOW FB97 ESCOLD FAB FIXSEV F962 FMT1 
FIA6 FMT2 2E FORMAT F847 GBASCALC 27 GBASH 
26 GBASL F856 GBCALC FRA? GETFMT ?FD6A GETLN 
FD67 GETLNZ FFA7 GETNUM FBB4 GOTOCX FEBS GO 
2c H2 FCC9 HEADR ?CO57 HIRES ?COSS HISCR 
?F619 HLINE FS81iC HLINEL FCS8 HOME F89B IEVEN 
?FA6F INITAN FB2F INIT ?FES8B INPORT ?FE8D INPRT 
Fes2 INSDSi ?Fesc INSDS2 F8DO INSTDSP 32 INVFLG 
0200 IN cooo IOADR FEA7 IOPRT1 FEAQ IOPRT2 
FE9B IOPRT OSFE IRGLOC FA4O IRG@ FC99 ISPAGE1 
Fc91 ISSLOTS cooo KED cO10 KBDSTRB FB88 KBDWAIT 
FDIB KEYIN ? 39 KSWH 38 KSWL 2F LASTIN 
2F LENGTH FC66 LF 0400 LINE1L FE63 LIST2 
?FESE LIST 2c LMNEM oo LOCO Oi Loci 
CO56 LORES CO54 LOWSCR ?FE20 LT F&22. Te 
2E MASK ?C0S2 MIXCLR COS5S3 MIXSET F9CO MNEML 
FAOO MNEMR FSBE MNNDX1 Fec2 MNNDX2 F8C9 MNNDX3 
FDAD MODSCHK 31 MODE FF65 MON FF69 MONZ 
FE2C MOVE O7F8 MSLOT ?FA81 NEWMON O3FB NMI 
FAA3 NOFIX FDSF NOTCR1 FD3D NOTCR FB94 NOWAIT 
FCBA NXTAL FCB4 NXTA4 FF98 NXTBAS FF9O NXTBIT 
FFA2 NXTBS2 FAC7 NXTBYT FD75 NXTCHAR FFAD NXTCHR 
?FS5F NXTCOL FF73 NXTITM FAS? OLDBRK ?FFS9 OLDRST 
FCE2 ONEDLY ?FE9S OUTPORT ?FE97 OUTPRT C064 PADDLO 
?F95S4 PCADJ2 F9S6 PCADJ3 F953 PCADJ F9SC PCADJ4 
3B PCH 3A PCL ? 95 PICK FSOE PLOT1 
Fs00 PLOT FD92 PRAL F910 PRADR1 F914 PRADR2 
F926 PRADR3 F92A PRADR4 F930 PRADRS F94A PRBL2 
?F94C PRBL3 F948 PRBLNK FDDA PRBYTE FB25 PREAD2 
?FBIE PREAD ?FF2D PRERR FDES PRHEXZ ?FDE3 PRHEX 
FEFS PRMN1 F8F9 PRMN2 ?F941 PRNTAX FS8DB PRNTBL 
FSD4 PRNTOP ?F944 PRNTX F940 PRNTYX 33 PROMPT 
FD96 PRYX2 CO70 PTRIG FAFD PWRCON O3F4 PWREDUP 
FAAS PWRUP FCFA RD2BIT FFOA RD2 FF16 RDS 
C018 RDSOSTORE FCFD RDBIT FCEE RDBYT2 FCEC RDBYTE 
FD35 RDCHAR C015 RDCXROM FCB4 RDCX FD21 RDESC 
FDOC RDKEY CO1C RDPAGE2 FAE4 RDSP1 ?FEFD READ 
FAD7 REGDSP ?FEBF REGZ ?F938 RELADR FA62 RESET 
FFSF RESTORE ?FF44 RESTR1 FADA RGDSP1 2D RMNEM 
? 4F RNDH ? 4E€ RNDL FB19 RTBL FS8O0C RTMASK 
FS7F RTMSKZ F831 RTSL F961 RTS2 FBEF RTS2B 
FB2E RTS2D FBFC RTS3 FCC8 RTS4B ?FDCS RTS4C 
FC2B RTS4 FE17 RTSS FF4c SAV1 ?FF4A SAVE 
?F871 SCRN F879 SCRN2 ?FC70 SCROLL cO58 SETANO 
COSA SETAN1 ?COSC SETAN2 ?COSE SETAN3 ?F864 SETCOL 
?FB40 SETGR FE86 SETIFLG C007 SETINTCXROM ?FEB8O SETINV 
FE89 SETKBD FE1D SETMDZ ?FE18 SETMODE FE84 SETNORM 
?FAA? SETPGS FAAB SETPLP ?FB6F SETPWRC C006 SETSLOTCXROM 
?FB39 SETTXT FE93 SETVID FB4B SETWND ? 2F SIGN 
FABA SLOOP O3F2 SOFTEV C030 SPKR 49 SPNT 
48 STATUS ?FEC4 STEPZ FB65 STITLE ?FEOB STOR 
FBFO STORADV FFE3 SUBTBL ?FBSB TABV C060 TAPEIN 
C020 TAPEOUT FBO9 TITLE FFBE TOSUB ?FEC2 TRACE 
cOSO TXTCLR cOS1 TXTSET FC1A UP ?FECA USR 
O3F8 USRADR 2D v2 ?FBB3 VERSION FESB VFYOK 
FE36 VFY FBFD VIDOUT FB78 VIDWAIT F828 VLINE 
F826 VLINEZ FC22 VTAB FC24 VTABZ FCAB WAIT 
FCA WAIT2 FCAA WAIT3 23 WNDBTM 20 WNDLFT 


Monitor Symbol Table, Sorted by Symbol 




































































22 WNDTOP 21 WNDWDTH FED4 WR1 


FEEF WRBYT2 FEED WRBYTE ?FECD WRITE 

FDBS3 XAM FDA3 XAMS FDCé XAMPM 

FC72 XGOTOCX FB11 XLTBL 46 XREG 
34 YSAV 35 YSAV1 FCDB ZERDLY 


+e 
+e 
ee 
ee 


SUCCESSFUL ASSEMBLY := NO ERRORS 
ASSEMBLER CREATED ON OS-JAN-82 000004 
TOTAL LINES ASSEMBLED 1435 

FREE SPACE PAGE COUNT 67 

2 BUS. SRC2 


Monitor ROM Listings 


FCD6 
FCES 
?FEBO 
47 
FFC7 


WRBIT 
WRTAPE 
XBASIC 
YREG 
ZMODE 









































Monitor Symbol Table, 


Sorted by Address 


oo Loco 
21 WNDWDTH 
25 cv 
29 BASH 
2c LMNEM 
2E CHKSUM 
? 2F SIGN 
33 PROMPT 
? 37 CSWH 
3B PCH 
3F A2H 
43 A4H 
46 XREG 
? 4 RNDL 
O3FO BRKV 
O3F8 USRADR 
O7F8 MSLOT 
C007 SETINTCXROM 
COic RDPAGE2 
CcOS1 TXTSET 
?C055 HISCR 
?CO59 CLRANO 
?COSD CLRAN2 
C064 PADDLO 
£003 BASIC2 
?F819 HLINE 
F831 RTS1 
Fesc CLRSC3 
?F864 SETCOL 
Fes2 INSDS1 
FEA? GETFMT 
FSDO INSTDSP 
FSF9 PRMN2 
F92A PRADR4 
7F941 PRNTAX 
?F94C PRBL3 
F95C PCADU4 
FOB4 CHARI 
FA40 IRQ 
PFA6F INITAN 
FAAS PWRUP 
FAC7 NXTBYT 
FAFD PWRCON 
FB19 RTBL 
FB2F INIT 
?FBSB TABV 
FB78 VIDWAIT 
FB9B ESCNOW 
FBC1 BASCALC 
FBEF RTS2B 
FBFD VIDOUT 
FC24 VTABZ 
FCS8 HOME 
FC72 xGOTOCX 
FC9C CLREOL 
FCAA WAITS 
FCC? HEADR 
FCES WRTAPE 
FCFD RDBIT 
FD2F ESC 
FD62 CANCEL 
FD75 NXTCHAR 
FD92 PRAL 
FDB3 XAM 
FDDi ADD 
FDED COUT 
?FEO4 BLANK 
FE1D SETMDZ 
FE36 VFY 
FE7S A1PC 
FE84 SETNORM 
?FEBD INPRT 
FE9B IOPRT 
?FEBO XBASIC 
?FEC2 TRACE ‘ 
FED4 WR1 


APPLE2ZE 
WNDTOP 
GBASL 
BAS2L 
v2 
FORMAT 
COLOR 
YSAV 
KSWL 
A1iL 
ASL. 

ASL 
YREG 
RNDH 
SOFTEV 
NMI 
IOADR 
KBDSTRB 
TAPEOUT 
MIXCLR 
LORES 
SETAN1 
SETAN3 
PTRIG 
PLOT 
HLINEL 
CLRSCR 
GBASCALC 
SCRN 
INSDS2 
MNNDX1 
PRNTOP 
PRADR1 
PRADRS 
PRNTX 
PCADJ 
RTS2 
CHAR2 
BREAK 
NEWMON 
SETPG3 
REGDSP 
DISKID 
PREAD 
SETTXT 
APPLEIT 
KBDWAIT 
ESCNEW 
BASCLC2 
STORADV 
BS 

RTS4 

CR 

RDCX 
CLREOLZ 
NXTA4 
WRBIT 
RDBYTE 
RDKEY 
RDCHAR 
GETLNZ 
CAPTST 
PRYX2 
DATAOUT 
PRBYTE 
couTi 
STOR 

LT 
VFYOK 
A1IPCLP 
SETIFLG 
SETVID 
IOPRT1 
BASCONT 
STEPZ 
WRBYTE 


Loci 
WNDBTM 
GBASH 
BAS2H 
RMNEM 
LASTIN 
MODE 
ysavi 
KSWH 
AlH 
A3H 
ASH 
STATUS 
PICK 
PWREDUP 
IRQ@LOC 
KBD 


ADVANCE 
uP 

ESCc1 

LF 
ISSLOTS 
WAIT 
NXTAL 
ZERDLY 
RDBYT2 
KEYIN 
NOTCR 
GETLN 
ADDINP. 
XAMB 
RTS4C 
PRHEX 
COUTZ 
RTSS 
LT2 
LIST 
ALPCRTS 
SETKBD 
OUTPORT 
IOPRT2 
co 

USR 
WRBYT2 


Monitor Symbol Table, Sorted by Address 


WNDLFT 


MASK 
LENGTH 
INVFLG 
CSWL 
PCL 
A2L 
Aa 
acc 
SPNT 
IN 
AMPERV 
LINE1 
SETSLOTCXROM 
RDSOSTORE 
TXTCLR 
LOWSCR 
SETANO 
SETAN2 
TAPEIN 
BASIC 
PLOTL 
VLINE 
cLRSC2 
NXTCOL 
RTMSKZ 
ERR 
MNNDX3 
PRMNi 
PRADRS 
PRNTYX 
PRBL2 
PCADJ3 
FMT2 
MNEMR 
RESET 
NOF IX 
SLOOP 
RDSP1 
XLTBL 
RTS2D 
SETWND 
SETPWRC 
ESCOLD 
GOTOCX 
BELL2 
RTS3 
VTAB 
CLREOP 
SCROLL 
ISPAGEL 
WAIT2 
RTS4B 
ONEDL.Y 
RD2BIT 
RDESC 
NOTCR1 
BCKSPC 
CROUT 
MODSCHK 
XAMPM 
PRHEXZ 
BL 
SETMODE 
MOVE 
LIsT2 
SETINV 
INPORT 
OUTPRT 
CKSUMF IX 
REGZ 
WRITE 
CRMON 
























































‘?FEFD READ FFOA 
FF3A BELL FFSF 
FF4C SAVL ?FFS9? 
FF73 NXTITM FF7A 
FF98 NXTBAS FFA2 
FFBE TOSUB FFC7 


tt 
seit 
Da 
Ht 


SUCCESSFUL ASSEMBLY 


ASSEMBLER CREATED ON O5-JAN-82 000004 


TOTAL LINES ASSEMBLED 
FREE SPACE PAGE COUNT 
2 BUS. SRC2 


RD2 FF16 
RESTORE PFF4&4 
OLDRST FF65 
CHRSRCH FFBA 
NXTBS2 FFA7 
ZMODE FFCC 
NO ERRORS 

1438 

67 


Monitor ROM Listings 


RD3 
RESTR1 
MON 
DIG 
GETNUM 
CHRTBL 


‘?FF2D 
2FF4A 
FF69 
FF9O 
FFAD 
FFES 





PRERR 
SAVE 
MONZ 
NXTBIT 
NXTCHR 
SUBTBL 

































































80-Column Firmware 
Listing 


0000: 
0000: 
0000: 
0000: 


0000 


oooo: 
0000: 
ooao: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
oooo: 
0000: 
0000: 
0000: 
oooo: 
0000: 
0000: 
0000: 
0000: 
0000: 
ooco: 
0000: 
oooo: 
0000: 
0000: 
ooco: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
OO1F: 
OO1F: 
0020: 
0021: 
0022: 
0023: 
0024: 
002s: 
0026: 
0028: 
002A: 
002A: 
oo02c: 
0032: 
0032: 
0033: 
0036: 
0038: 
0038: 
003A: 
oosc: 
oosc: 


0006 


FBB3 
FDOC 
FE89 
FE93 
FFS8 


OO1F 
0001 
e001 
ooo1 
oo0o1 
0001 
0001 
0001 
0002 
0002 
0029 
0002 
002B 
0032 
0001 
0003 
0002 
0037 
0002 
0037 
003C 
0002 


JESTER HEATER HE IEEE IESE AIEEE REE SE SEE IE TERE REE AEE EAE IEEE HE 
* 
* Apple //e VIDEO FIRMWARE 
* 
# RICK AURICCHIO 08/81 
+ 
# (C) 1981, APPLE COMPUTER INC. 
* ALL RIGHTS RESERVED 
Es 
SERRE FETE SEER AE SEER ETE EHTS REE REE IE REHEARSE FETE HEE 
* 
GOODFS EQU 6 i FB ROM VERSION 
* 
% HARDWARE EQUATES: 
* 
KBD EQU $C000 i KEYBOARD PORT 
CLRBOCOL EQU sCO00O0 i; DISABLE 80COL STORE 
SETSOCOL EQu $cool 7 ENABLE S8OCOL STORE 
RDMAINRAM EQuU $C002 i READ MAINBOARD RAM 
RDCARDRAM EQU $CO03 i READ CARD RAM 
WRMAINRAM EQU $CO04 iWRITE MAINBOARD RAM 
WRCARDRAM EQU $co0o5 iWRITE CARD RAM 
SETINTCXROM EQU $CO07 ;SET INTERNAL CXOO ROM 
SETSTDZP EQu $C008 iSET STD ZP/STK 
SETALTZP EQU $coo? i+SET ALT ZP/STK 
SETSLOTC3ROM EGU S$COOB 
CLREOVID EQU s$COOC ;+ DISABLE 80COL VIDEO 
SETS80VID EQU $COOD i ENABLE S80COL VIDEO 
CLRALTCHAR EQU $COOE iNORM LC, FLASH UC 
SETALTCHAR EQU SCOOF i#NORM/INV LC, NO FLASH 
KBDSTRB EQU $CO10 i CLEAR STROBE 
RDLCBNK2 EQuU $COll i+READS LC BANK2 
RDLCRAM EQU $col2 i READS LC RAM ENABLE 
RDRAMRD EQU $c013 i READS RAMREAD STATE 
RDRAMWRT EQU $CO14 i READS BANKWRT STATE 
RDSOCOL EQU $C018 i READS SETSOCOL 
RDVBLBAR EQU $Cco1g9 i ‘VBL SIGNAL 
RDTEXT EQU $COLA i READS TXT MODE 
RDPAGE2 EQU s$CO1C +PAGE1/2 STATUS 
RDSOVID EQU $CO1F ij READS SETSOVID 
SPKR EQU $C030 i TOGGLE SPEAKER 
TXTPAGEL EQU $CO54 ;PAGE1 TEXT 
TXTPAGE2 EQU $COSS + PAGE2 TEXT 
* 
%* MONITOR EQUATES: 
* 
FBVERSION EQuU $FBB3 + FB ROM ID 
RDKEY EQu $FDOC iGET A KEYSTROKE 
SETKBD EQU $FE89 i IN#O 
SETVID EQu $FE93 i PR#O 
IORTS EQU $FFS58 i KNOWN RTS 
# ZEROPAGE EQUATES: 
* 

DSECT 

ORG $ 
YSAV1 DS 1 i SAFE PLACE IN ALL ENVIRONS 
WNDLFT DS 1 i SCROLLING WINDOW LEFT 
WNDWDTH Ds 1 + SCROLLING WINDOW WIDTH 
WNDTOP DS 1 + SCROLLING WINDOW TOP 
WNDBTM Ds D| i+ SCROLLING WINDOW BOTTOM 
CH Ds 1 + CURSOR HORIZONTAL 
cv DS 1 i CURSOR VERTICAL 

DS 2 i GBASL. 
BASL DS 2 i BASE ADDRESS 
BASH EQU BASL+1 
BAS2L DS 2 i BASE ADDR FOR SCROLL. 
BAS2H EQU BAS2L+1 

ORG $32 
INVFLG Ds 1 + >127=NORMAL. 

Ds 3 iN/A 
cSWL Ds 2 + COUT HOOK 
CSWH Equ CSWL+1 
KSWL DS 2 i KEYIN HOOK 
KSWH EQU KSWL+1 

ORG -$3C 
ALL DS 2 i MONITOR TEMPS FOR MOVE 


80-Column Firmware Listing 












































OO3E: 003D 79 A1H EQu A1L+1 











OOSE: 0002 80 A2L DS 2 

0040: 003F 81 A2H EQu A2L+1 

0040: 0002 62 Ds 2 + A3 NOT USED 
0042: 0002 83 A4L ps 2 

0044: 0043 84 ASH EQu A4L+1 

OO4E: 004E 85 ORG $4E 

OO4E: 0002 86 RNDL Ds e i RANDOM NUMBER SEED 
0050: O04F 87 RNDH EQuU RNDL+1 

0000: 88 DEND 

0000: 90 *# PERMANENT DATA IN SCREENHOLES 

0000: 91 # 

0000: 92 * NOTE: THESE RESIDE IN PAGE 1 OF 

0000: 93 * THE 80-COLUMN SCREEN PAIR: ANY 

0000: 94 #* ROUTINE WHICH SETS PAGE2 *#MUST* 

0000: 95 # RESTORE BACK TO PAGE1 SO THAT 

0000: 96 * WE CAN CORRECTLY ACCESS THESE 

0000: 97 * PERMS. UNDER #NO# CIRCUMSTANCES 

0000: 98 * IS ANY ROUTINE TO BE CALLED WHILE 

0000: 99 # WE HAVE PAGE2 BANKED IN! 

0000: 100 * 

0000: 0478 101 TEMP1 EqQu $478 iA TEMP 

oooo: 047B 102 OLDCH EQU $478+3 ;7OLD CH SET FOR USER 
0000: O4FB 103 MODE EQu S4FB+3 + OPERATING MODE 
0000: 104 * MODE BITS 

0000: 105 # O....... — ESC-R INACTIVE 

0000: 106 * 1....... — ESC-R ACTIVE 

0000: 107 * .0....., -— BASIC PRINT 

0000: 108 # .1. — BASIC INPUT 

0000: 109 * ..0. . 7— LANGUAGE=BASIC 

0000: FTO) # cis Dea saw — LANGUAGE=PASCAL 

0000: 111 # ...0.... — U/C RESTRICT MODE 

oGo0: 112 * ...1.... — LITERAL UC/7LC MODE 

oooo: 113 * ....0,.. — GOTOXY N/A 

ooo: 114 # . .1... — GOTOXY IN PROGRESS 

0000: 115 * . .O.. — NORMAL VIDEO (PASCAL) 

0000: 116 * a. — INVERSE VIDEO (PASCAL) 

oooo: SIP WH oo05 was O. — PASCAL 1.1 F/W ACTIVE 

o000: 118 * -1. - PASCAL 1.0 INTERFACE 

oooo: 119 * O - CALLER SEI‘D (BASIC) 

eo00 120 * .1 —- CALLER CLI‘’D (BASIC) 

oooo: 121 * O — NORMAL MODE (PASCAL) 

0000: 122 * 1 - TRANSPARENT MODE (PASCAL) 

0000: 0080 123 M.ESCR EQU $80 3 ESC-R ACTIVE 
0000 0040 124 M. BINPUT EQU $40 i BASIC INPUTTING 
0000 0020 125 M. PASCAL EQU $20 i; PASCAL RUNNING 
0000 0010 «126 M.LIT EQU $10 *#LITERAL UC/LC INPUT 
0000 0008 127 M. GOXY EQU $08 iGOTOXY IN PROGRESS 
occo 0004 128 M. VMODE EQU $04 ;PASCAL VIDEO MODE 
o0c0 0002 129 M.PAS1.0 EQU $02 i PASCAL 1.0 MODE 
o0co: 0001 130 M.IR@ EQU sO1 ;IR@ ENABLED (BASIC ONLY) 
0000 0001 131 M. TRANS EQU $01 i; TRANSPARENT MODE IF F/W PROTOCOL 
oooo: OS7B 132 GURCH EQU $578+3 780-COL CH 

oooo: OSFB 133 OURCV EQU $SFE+3 i CURSOR VERTICAL 
0000: 067B 134 CHAR EQU $678+3 i IN/OUT CHAR 
0000: O6FB 135 XCOORD EQU $6FB+3 + X-COORD (GOTOXY) 
0000: O77B 136 OLDBASL EQuU $778+3 7PASCAL SAVED BASL. 
ooo0: O7FB 137 OLDBASH EQU S7FB+3 i+ PASCAL SAVED BASH 
0000 138 * 

0000: 139 * GENERAL SCREEN STUFF 

0000: 140 * 

oooo: O7F8 141 CB8SLOT EQU $7F8 i IRQ C8 PROTOCOL 
0000: 142 CHR Sak 

0000: 4 INCLUDE BFUNC 

= NEXT OBJECT FILE NAME IS VIDEO. OBYO 

c100: c100 2 ORG $C100 

C100: C100 3 BFUNCPG EQu * 

c100: Fb29 4 FUNCEXIT EQU $FD29 i RETURN ADDRESS 
C100; FBCi S F.BASCALC EQU $FBC1 

c100: FC22 6 F.VTAB EQU $FC22 

c100: FC24 7 F. VTARZ EQU $FC24 

c100 CS) Sen ei i Se SS aaa 

cioo. 9 * BASIC FUNCTION HOOK: 

cioo- 2D) ere ee eS See 

C100: 11 * THIS ROUTINE IS CALI-ED BY THE 

¢100: 12 * PATCHED F8 ROM... 

cioo: 13 # THIS CODE WILL ALWAYS PERFORM THE 

c1co0 14 # FUNCTION HERE AND RETURN TO THE 

c100: 15 # CALLER 

c100: 16 ® 

c100: 17 * NOTE: F8 ROM DISABLES I/O TO GET US 

c100 18 * RUNNING HERE. WE RETURN TO F8 SPACE. 

C100: ea 

c100 20 # INPUT: Y=FUNCTION AS FOLLOWS 

C100: 21% LREOP 

c10G- 22 * OME. 

c1ioo: 23 * CROLIL 

cioo 24 *# LREOL 

c100 25 # LEOLZ 

c100: 26 * NIT @ RESET 

c100 27 * EYIN 

C100: 28 * 7=FIX ESCAPE CHAR 
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c100: 29 * 8=SETWND 

c100: 30 * 

c100: 31 # STK HAS PHP FOR STATUS 

C100: 32 * OF BANK & IR@ BIT 

C100: 33 # VOLATILE: AC,Y 

c100: ey eee 
c100: 35 * NOTE: IF WE HAVE A CARD INSTALLED, 

c100: 36 # THEN USE THE VIDEG ROUTINES, SINCE 

€100: 37 * WE ‘OWN’ SLOTS SCREENHOLES. 

c100: 38 * IF NOT, DUPLICATE F8ROM ROUTINES 

C100: 39 * AND AVOID SLOTS INTERFERENCE. 

€100: (emer ea se en ns ne et hes Saas 
C100: 41 * VECTOR TO KEYIN/ESCFIX IMMEDIATELY 

€100: 42 * TO AVOID AC DESTRUCTION: 

c100: 43 * 

c100: c100 44 B. FUNC EQu * 

€100:CO 06 4s cPY #6 i1S IT KEYIN? 
c102:DO Q3 C107 46 BNE B. FUNCNK iNO 

C104: 4C 88 C2 47 JMP B. KEYIN 

C107: C107 48 B. FUNCNK EQU * 

€107:CO 07 4a? cPY #7 i1S IT ESCAPE-FIX? 
€109: DO 03 C10E 50 BNE B. FUNCNE i NO 

C10B:4C 6E C2 Si JMP B. ESCFIX + =>YES! 

C10E: C10E S52 B. FUNCNE EQU * 

C10E: 98 53 TYA i SAVE Y¥ 

C10F: 48 54 PHA 

€110:20 24 CB 55 JSR TESTCARD i DO WE HAVE A CARD? 
C113:DO 0A C1irF 56 BNE B. OLDFUNC 4 =>NO 

C115: S7 # 

C115: 58 # NOTE: THIS TEST COULD TURN OUT 

C115: 59 * WRONG ON POWER-UP, SINCE THE 

C115: 60 * MODEBYTE IS UNDEFINED. HOWEVER, . 

C115: 61 * SINCE THE MONITOR IS DOING A 

ciis: 62 * SIMPLE ‘SETWND’ CALL, WE WON‘T 

C1is: 63 * GET INTO TROUBLE EVEN IF WE 

C115: 64 * MAKE THE WRONG DECISION... 

C115: 65 * 

€115:AD FB 04 66 LDA MODE 41S MODE VALID? 
€118:29 28 67 AND #M. PASCAL+M. GOXY i FOR BASIC 
C1iiA:DO 03 Cc1iirF 68 BNE B. OLDFUNC =>DEFINITELY NOT! 
€11C:4C A4 Ci 69 JMP B. FUNCO i=>YES, GO NEW WAY 
C1iF: 70 # 

C1iF: 71 * NO CARD. DO THINGS THE OLD WAY. 

C1iF: 72 * 

C1iF: Cllr 73 = B. OLDFUNC EQ@uU * 

C1iF:68 74 PLA 

C120: a8 i} TAY RESTORE Y 
C121:A9 C1 76 LDA #<BFUNCPG i TRANSFER VIA 
C123: 48 77 PHA i THE RTS-TRICK 
C124:B9 EA CF 78 LDA F. TABLE, Y ;+GET LO ADDRESS 
C127: 48 79 PHA 

C128: 60 80 RTS + TRANSFER TO ROUTINE 
C129: 2) SSS SSeS ese ae a 

€129:A4 24 82 F. CLREOP LDY CH i; ESC F IS CLR TO END OF PAGE 
C12B:A5 25 83 LDA cv 

c12D: 48 84 CLEOP1 PHA 

C12E: 20 24 FC 85 JSR F. VTABZ 

€131:20 F4 C2 86 JSR X. CLEOLZ 

€134:A0 00 87 LDY #600 

C136: 68 88 PLA 

€137: 69 00 89 ADC #$00 

€139:C5 23 90 CMP WNDBTM 

C13B:90 FO c12D 91 BCC CLEOP1 

€13D: 20 22 FC 92 JSR F. VTAB 

C140: 4C EB C2 93 JMP F. RETURN i DONE 

C143: Rk SSS SSS er See ae 
C143:A5 22 95 F. HOME LDA WNDTOP 

C145:85 25 96 STA cv 

C147: AO 00 97 LDY #300 

C149: 84 24 98 STY CH 

C14B:FO EO c12D 99 BEQ CLEOP1 i (ALWAYS TAKEN) 
C14D: = 
C14D: AS 22 101 F. SCROLL LDA WNDTOP 

C14F: 48 102 PHA 

€150:20 24 FC 103 JSR F. VTABZ 

C153:A5 28 104 SCRLi LDA BASL 

C155:85 24 105 STA BAS2L 

€157:A5 29 106 LDA BASH 

€159:85 2B 107 STA BAS2H 

C15B:A4 21 108 LDY WNDWDTH 

C1SD: 88 109 DEY 

C15E: 68 110 PLA 

C1SF:69 O1 111 ADC #$01 

€161:C5 23 112 CMP WNDBTM 

€163:BO OD ci72 #113 BCS SCRL3 

C165: 48 114 PHA 

C166: 20 24 FC 115 JSR F. VTABZ 

C169: Bi 28 116 SCRL2 LDA (BASL), Y 

C16B:91 24 117 STA (BAS2L),Y 

c16D: 88 118 DEY 

C16E:10 F9 €169 #119 BPL SCRL2 
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C170: 
C172: 
C174: 
C177: 
C17A: 
C17D: 
C1i7F: 
C181: 
C183: 
c184: 
C186: 
c188: 
C18A: 
C1BA: 
C18A: 
c1ec: 
C16E: 
c190: 
C192: 
C194: 
C196: 
C199: 
c19c: 
c19c: 
Cc19c: 
C19E: 
CiA1: 
C1A4: 
C1iA4: 
C1AS: 
C1iA6: 
C1iAé: 
C1A6: 
CiAé: 
C1A9: 
C1AB: 
C1iAE: 
C1AF: 
CiBe: 
C1B3: 
C1iB4: 
C1iB5S: 
C1Bé: 
C1B7: 
C1iBA: 
C1iBB: 
CiBD: 
c1co: 
cica: 
cics: 
C1cs: 
c1ic7: 
C1CA: 
CicD: 
CicD: 
C1cD: 
CcicD: 
CicD: 
C1icD: 
cicD: 
c1iDo: 
c1D3: 
C1D3: 
C1D3: 
C1Dé: 
C1iD9: 
c1D9: 
C1D9: 
C1DB: 
C1DE: 
C1E1: 
CiE1: 
C1E1: 
C1E4: 
C1E7: 
C1E7: 
C1EA: 
C1ED: 
C1ED: 
C1ED: 
C1FO: 
C1iF3: 
C1FS: 
C1F8: 
C1FB: 
CiFD: 
C1FF: 
C1FF: 
CIEF: 
C1iFF: 
CiFF: 


30 
ao 
20 
20 
4c 
A4 
Aa 
91 
cs 
c4 
90 
BO 


Ag 
85 
A? 
85 
Ag? 
65 
20 
4c 


A4 
20 
4c 


68 
48 


20 
4c 


20 
4c 


Aa 
20 
4c 


20 
4c 


4c 
4c 


E1 
00 
F4 
22 
EB 
24 
Ao 
28 


2i 
FQ 
17 


28 
21 
18 
23 
17 
25 
22 
EB 


iF 
F4 
EB 


FB 
FB 


78 


78 


os 
FB 
O1 
FB 


25 


FF 


A4 
EB 


48 
EB 


iF 
4E 
EB 


23 
EB 


19 
34 


c1is3 
c2 


FC 
c2 


ci8i 
C1A1L 


c1i8a 


FC 
c2 


c19c 
c2 


C1A4 


04 
04 


04 


04 


cics 
04 


04 
c1ics 


os 
ci 


cicD 
cc 
c2 
c1D3 
c2 
c1ib¢9 


cD 
c2 


C1E1 
cD 
c2 


c2 
c2 


C1iED 
os 


04 


C22E 


120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 


162 
163 
164 
165 


167 
168 
169 
170 


172 
173 
174 
175 
176 


178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
2097 
210 
21i 





BMI SCRLI 
SCRL3 LDY #800 
JSR X. CLEOLZ 


JSR F.VTAB 
JMP F. RETURN + @>DONE 
F. CLREOL LDY CH 
LDA #BA0 
CLEOL2 STA (BASL), Y 
INY 
cPY WNDWDTH 
BCC CLEOL2 
BCS F. GORET i DONE (ALWAYS TAKEN) 
F. SETWND EQu * 
LDA #40 
STA WNDWDTH 
LDA #24 
STA WNDBTM 
LDA #23 
STA cv 
JSR F. VTAB 
JMP F. RETURN 
F. CLEOLZ EQu * 
LDY YSAV1 i RESTORE HORIZ POSITION 
JSR X. CLEOLZ 3DO IT 
F. GORET JMP F. RETURN i DONE 
B. FUNCO EQu * 
PLA i; RESTORE Y 
TAY 
* 
# SET IRQMODE: 
* 
LDA MODE i ASSUME IRG@ IS DISABLED 
AND #255-M. IRQ 
STA MODE 
PLA #PULL CXBANK STATUS 
STA TEMP 1 i OFF STACK 
PLA iGET USER‘S PSTATUS 
PHA i (LEAVE ALONE ON STACK) 
LSR A iMOVE ‘I’ BIT TO 
LSR aA i THE CARRY 
LSR A 
LDA TEMP1 i PUT CXBANK STATUS 
PHA i BACK ON STACK 
BCS NOT 7 =>HE‘S INHIBITED 
LDA MODE 
ORA #M. IRG 
STA MODE 
NOI EQuU * 
LDA cv i+ COPY USER CV 
STA OQURCV 7 TO OURS 
JMP B. VECTOR i CONTINUE 
* 
# NOTE: THIS KEEPS B. XXXX ROUTINES 
* ALL IN THE C100 PAGE... 
* 
* 
B. SCROLL EQuU * 
JSR SCROLLUP i DO IT FOR CALLER 
JMP F. RETURN i AND RETURN DIRECTLY 
* 
B. CLREOL EQu * 
JSR x.6S i CLEAR TO EOL 
JMP F. RETURN +RETURN DIRECTLY TO CALLER 
B. CLEOLZ EQU * 
LDY YSAV1 i RESTORE HORIZ POSITION 
JSR X. GSEOLZ +DO IT TO EOL 
vMP F. RETURN 
B. CLREOP EQU * 
JSR X. VT i CLEAR TO EOS 
JMP F. RETURN ij RETURN DIRECTLY TO CALLER 
B. SETWND JMP B. SETWNDX 
B. RESET JMP B. RESETX i MUST BE IN BFUNC PAGE 
B. HOME EQu * 
JSR X. FF i HOME & CLEAR 
LDA OURCH 
STA CH i COPY CH/CV FOR CALLER 
STA OLDCH i REMEMBER WHAT WE SET 
LDA OURCV 
STA cv 
BPL GOBACK i (ALWAYS TAKEN) 


* 
# COPY USER’S CURSOR IF IT DIFFERS 
% FROM OURS (AND WE’RE RUNNING 
#* IN 80-COLUMN MODE). IF WE ARE 
#* NOT IN 80-MODE, THEN ALWAYS USE 
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C1FF: 212 * THE USER’S CH VALUE SINCE OURS 

C1FF: 213 * IS PROBABLY INVALID. 

C1FF: 214 * 

C1FF: C1FF 215 B. VECTOR EQu * 

C1FF:20 51 CB 216 JSR BASCALC 

C202:AS5 24 217 LDA CH i GET USER CH VALUE 
C204:2C 1F CO 218 BIT RDSOVID i DISPLAYING BO-COLS? 
C207: 10 05 C20E 219 BPL B. GETCH #=>NO, USER CH IS IT 
C209:CD 7B 04 220 cmMP OLDCH iIS IT DIFFERENT? 
c20c:FO 03 C2i1 221 BEQ@ B. FUNC1 4=>NO, USE OURS 
C20E: C20E 222 B. GETCH EQuU * 

C20E:8D 7B 05 223 STA OURCH i; USE HIS CH 

cali: C211 224 B.FUNCL EQu * 

C211:A9 C1 225 LDA #<BFUNCPG i; TRANSFER TO ROUTINE 
C213: 48 226 PHA i VIA RTS-TRICK 
C214:B9 F3 CF 227 LDA B. TABLE, Y i GET LO ADDRESS 
C217: 48 228 PHA 

C218: 40 229 RTS 

c219 og SS] 6656S ee 

C219: C219 231 B. SETWNDX EQu * 

C219: A9 50 232 LDA #80 i ASSUME 80-COLS 
C21B:2C 1F CO 233 BIT RDBOVID i WHICH MODE? 

C2iE: 30 O1 C221 234 BMI B. SETWND2 i=>IT’S BO 

C220: 44 235 LSR A i MAKE IT 40 

C221: C221 236 B. SETWND2 EQU * 

C221:85 21 237 STA WNDWDTH 

C223:A9 18 238 LDA #24 i SET BOTTOM 

C225: 85 23 239 STA WNDBTM 

C227: A9 17 240 LDA #23 i VTAB TO BOTTOM 
C229: 8D FB OS 241 STA OURCV 

C22c:85 25 242 STA cv 

C22E:20 51 CB 243 GOBACK JSR BASCALC 

C231: 4C EB C2 244 JMP F. RETURN 

C234: 245 # 

C234 246 * HANDLE RESET FOR MONITOR: 

C234 247 * 

c234 C234 248 B. RESETX EQU * 

C234: A9 FF 249 LDA #9FF i DESTROY MODE BYTE 
C236: 8D FB 04 250 STA MODE 

C239: AD SD CO 251 LDA $COS5D i SETUP 

C23C: AD SF CO 252 LDA $COSF i ANNUNCIATORS 

C23F: 253 # 

C23F 254 * IF THE OPEN APPLE KEY 

C23F: 255 * (ALIAS PADDLE BUTTONS O) IS 

C23F: 256 * DEPRESSED, COLDSTART THE SYSTEM 

C23F: 257 * AFTER DESTROYING MEMORY: 

C23F: 258 * 

C23F: AD 62 CO 259 LDA $C062 i4GET BUTTON 1 (SOLID) 
C242: 30 1D C261 260 BMI DIAGS i =>DOWN, DO DIAGS 
C244: AD 61 CO 261 LDA $CO61 GET BUTTON O (OPEN) 
C247:10 1B C264 262 BPL RESETRET i=>NOT JIVE OR DIAGS 
C249: 263 * 

C249: 264 # BLAST 2 BYTES OF EACH PAGE, 

C249: 265 * INCLUDING THE RESET VECTOR: 

C249: 266 * 

C249: AO BO 267 LDY #$BO i LET IT PRECESS DOWN 
C24B: A? 00 268 LDA #0 

C24D:85 3c 269 STA AlL. 

C24F:A9 BF 270 LDA #$BF i START FROM BFXX DOWN 
C251: 38 271 SEC i FOR SUBTRACT 

c2se2: C252 272 BLAST EQU * 

c252:85 3D 273 STA A1H 

€254:91 3C 274 STA (AIL), Y 

C256: 88 275 DEY 

€257:91 3C¢ 276 STA (AIL), Y 

C259:E9 O1 277 SBC #1 i BACK DOWN TO NEXT PAGE 
C25B:C9 O1 278 CMP #1 i STAY AWAY FROM STACK! 
C25D: DO F3 c252 279 BNE BLAST 

C25F:FO 03 C264 280 BE@ RESETRET i (ALWAYS) 

C261 281 * 

C261 C261 282 DIAGS EQU * 

C261:4C O1 C4 283 JMP $C401 i RUN DIAGS 

C264: 284 * 

C264: C264 285 RESETRET EQU * 

C264;:20 24 CB 286 JSR TESTCARD i+ CARD PLUGGED IN? 
C267:FO 14 C27D 287 BEQ@ GORETN i =>YES: 

C269: 8D OB CO 288 STA SETSLOTC3ROM iNO, DISABLE ROM 
C26C: DO OF c27D 289 BNE GORETN (ALWAYS TAKEN) 
C26E: 290 = 

C26E: C26E 291 B. ESCFIX EQU a 

C26E: 29 DF 292 AND #$DF i FORCE TO UPPERCASE 
C270: AO 03 293 LDY #4-1 i SCAN FOR A MATCH 
C272: C272 4294 B. ESCFIX2 EQuU * 

C272:D9 B80 C2 295 CMP ESCIN, Y 71S 117 

C275: DO 03 C27A 296 BNE B. ESCFIX3 i =>NAW 

€277:B9 84 C2 297 LDA ESCOUT. Y i YES, TRANSLATE IT 
C27A: C27A 298 B. ESCFIX3 EQu * 

C27A: 88 299 DEY 

C27B:10 FS c272 300 BPL B. ESCFIX2 

C27D: 4C EB C2 301 GORETN JMP F. RETURN i RETURN: CHAR IN AC 
c280: 
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C280: 88 
C284: CA 
c2s88: 

c2ssB: 

C288: 8D 
C2eB: 68 
C28c: As 
C2eD: 68 
C28E: 48 
C28F: 6A 
C290: 6A 
C291: 6A 
C292: 98 
C293: 48 
C294: BA 
C295: 48 
C296: 

C296: BB 
C297: BO 
C299: 2c 
c29c: 

C29C: Ag 
C29E: A4 
C2A0: 91 
C2A2: 20 
C2A5: BO 
C2A7: AD 
C2AA: Ad 
C2ACc: 91 
C2AE: 20 
C2B1: BO 
C2B3: 90 
C2B5: 

C2B5: 

C2B5: AD 
C2B8: A4 
C2BA: 71 
C2BC: 68 
C2BD: AA 
C2BE: AD 
C2c1: 8D 
C2c4: 30 
C2cé: 

c2cé: 

c2cé: 

C2cé: A2 
c2cB: 70 
C2CA: AZ 
c2cc: 

C2cc: AO 
C2ceE: 

C2cE: 50 
c2D0: 08 
C2D1: 20 
C2D4: 28 
C2D5: 

C2D5:E& 
C2D7: DO 
C2D9: E& 
C2DB: 

C2DB: AD 
C2DE: 30 
C2E0: 88 
C2E1: DO 
C2E3: CA 
C2E4: DO 
C2E6: 

C2E6: 18 
C2E7: 90 
C2E9: 

C2E9: 38 
C2EA: 

C2EA: 60 
C2EB: 

C2EB: 

C2EB: 

C2EB: 

C2EB: 

C2EB: 28 
C2EC: 30 
C2EE: 4C 
C2F1:4C 
C2F4: 

C2F4: 

C2F4: A? 
C2F6: 

C2F6: 91 
C2F8: C8 
C2F9: C4 
C2FB: 90 
C2FD: 60 
C2FE: 


95 8A 8B 
cB CD Cc? 
c288 
78 04 
03 c29C 
00 CF 
c29c 
FF 
24 
28 
cé C2 
OE C2B5 
78 04 
24 
28 
cé C2 
02 = =C2B5 
E7  c29Cc 
C2B5 
78 04 
24 
28 
00 co 
10 co 
25 C2EB 
c2ce 
oc 
02 cacc 
31 
c2acc 
00 
C2CE 
os caps 
75 FC 
c2p5 
4E 
02 c2DB 
4F 
C2DB 
00 co 
09 = CRED 
EB C2cE 
E6 ca2cc 
C2E6 
01 C2EA 
C2E9 
C2EA 
C2EB 
03 (C2F1 
29 FD 
2c FD 
c2F4 
Ao 
C2F6 
28 
21 
FO  C2F6 
0002 


303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 





ESCIN DFB $88, $95, $8A, $8B 
ESCOUT ASC *JKMI* i THE ARROWS 
B. KEYIN EQuU * 
STA TEMP 1 i SAVE ORIGINAL CHAR 
PLA ;HOLD ONTO 
TAY i CXBANK STATUS 
PLA i GET USER‘’S 
PHA i+ IRQ STATE 
ROR 4 i MOVE IR@ BIT TO 
ROR A i THE 
ROR A i CARRY 
TYA i PUT CXBANK STATUS 
PHA + BACK ON STACK 
TXA i SAVE 
PHA i XREG 
* 
cLY + ASSUME NOT INTERRUPTIBLE 
BcS B. KEYIN2 i =>WE WERE RIGHT 
BIT SEV i SAY “INTERRUPTIBLE" 
B. KEYIN2 EQuU * 
LDA #$FF i CURSOR=NORMAL DELETE 
LDY CH 
STA (BASL),Y 
JSR KEYDLY i WAIT FOR A KEY 
BCS GOTKEY i =>G0T ONE 
LDA TEMP 1 i REPLACE ORIG CHAR 
LDY CH 
STA (BASL), Y 
JSR KEYDLY i WAIT FOR A KEY 
BCS GOTKEY i =>GOT ONE 
BCC B. KEYIN2 i (ALWAYS TAKEN) 
* 
GOTKEY equ * 
LDA TEMP 1 i; RESTORE ORIGINAL 
LDY CH . 
STA (BASL), Y i CHARACTER 
PLA i RESTORE 
TAX i XREG 
LDA KBD iGET THE NEW KEYSTROKE 
STA KBDSTRB 7 CANCEL THE STROBE 
BMI F. RETURN i (ALWAYS TAKEN) 
coed 
##% INPUT: VFLAG SET IF INTERRUPTIBLE 
KEYDLY EQU * 
LDX #S0C i SHORT DELAY FOR IR@ 
BYS TK1 i ->INTERRUPTIBLE 
LDX #331 iLONG DELAY FOR NO IRG@ 
IK1 EQU * 
LDY #0 
Ik2 EQU * 
BYC IK2A i4=>NOT INTERRUPTIBLE 
PHP i+ SAVE OFLOW 
JSR, SNIFFIRG i ALLOW IRQ 
PLP RESTORE OFLOW 
IK2A EQU * 
INC RNDL 
BNE IK3 
INC RNDH 
IK3 EQu * 
LDA KBD i KEYPRESS? 
BMI KDRETY i =>YES 
DEY 
BNE IK2 
DEX 
BNE IK1 
KDRETN EQu * 
cLc 
BCC KDRET 
KDRETY EQu * 
SEC 
KDRET EQu * 
RTS 


* 
* EXIT. EITHER EXIT WITH OR WITHOUT 
%* ENABLING I/O SPACE. 
* 
F. 


. RETURN EQU * 


PLP i GET PRIOR I/O DISABLE 
BMI F.RET1 i=>LEAVE IT DISABLED 
JMP FUNCEXIT i =>EXIT & ENABLE 1/0 
F.RET1 JMP FUNCEXIT+3 i EXIT DISABLED 
xX. CLEOLZ EQU * 
LDA #$A0 
xX. CLEOL2 EQu * 
STA (BASL), Y 
INY 


cPY WNDWDTH 

BCC X. CLEOL2 

RTS i ALWAYS RETURN DIRECTLY 
ZSPAREC2 EQuU $C300-* 
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:2C 58 
Oo 12 


oc 


63 
BO 


FB 
FE 
FB 
04 
os 
FB 
OL 
FB 
FF 
25 
FB 
EB 
03 
66 
03 
EB 
4F 
EB 
74 
EB 
8E 

C35D: 20 EB 

€360:4¢ 94 

C363: 

C363 

C363: 

C363: 

C363 

C343: 

6363: 

C363 

©3463: 

C363: 


0002 


300 
300 
FF 
C317 
c305 


C307 


C317 


c3 
c3 


C317 


04 


04 


C336 
04 


04 
C336 
CF 


Ds $C300-*, 0 
INCLUDE C3SPACE 


* 
#* THIS IS THE $C3XX ROM SPACE: 


CNOO EQu * 
BASICINT EQU * 
BIT TORTS i SET VFLAG (INIT) 
BVS BASICENT i (ALWAYS TAKEN) 
BASICIN Equ * 
SEC 
DFB $90 i BCC OPCODE (NEVER TAKEN) 
BASICOUT Equ * 
cLc 
CLV i CLEAR VFLAG (NOT INIT) 
BYC BASICENT i (ALWAYS TAKEN) 


* 


PASCAL 1.1 FIRMWARE PROTOCOL TABLE: 


DFB $01 i GENERIC SIGNATURE BYTE 
DFB $88 i DEVICE SIGNATURE BYTE 
* 
DFB >JPINIT iPASCAL INIT 
DFB >JPREAD i PASCAL READ 
DFB >JPWRITE i+PASCAL WRITE 
DFB >UPSTAT iPASCAL STATUS 
* 
% 128K SUPPORT ROUTINE ENTRIES: 
* 
JMP MOVE i MEMORY MOVE ACROSS BANKS 
JUMP XFER i TRANSFER ACROSS BANKS 


* BASIC I/O ENTRY POINT 


BASICENT EQU * 





STA CHAR i SAVE CHARACTER 

PHA i SAVE AC 

TYA i AND Y 

PHA 

TXA i+ AND X 

PHA 

PHP i SAVE CARRY & VFLAG 


* 


* SET IRQMODE: 
* 





LDA MODE ; ASSUME IR@ IS DISABLED 
AND #255-M. IRG@ 
STA MODE 
PLA ;CET PSTATUS 
PHA i AND LEAVE ON STACK 
AND #304 i1S ‘I’ BIT SET? 
BNE BASICENT2 ;=>YES, DISABLED 
LDA = MODE 
ORA = #M, IRQ 
STA MODE i SET IT ENABLED 
BASICENT2 EQU * 
LDA = $CFFF ; KICK OUT ALL C8 ROMS 
Lpa cv iGET USER CV AND 
STA  OURCV i STUFF IT FOR US 
JSR SETC8 i SETUP C8 INDICATOR 
PLP i GET VFLAG (INIT) 
PHP 
BVS JBASINIT j=>DO THE INIT 
JUMP CBBASIC iGET OUT OF CN SPACE 
VBASINIT MP BASICINIT + =>GOTO C8 SPACE 
* 
JP INIT equ) #* 
JSR -SETCB i SETUP C8 INDICATOR 
MP PINIT iXFER TO PASCAL INIT 
JPREAD Eau # 
JSR SETCB i SETUP CB INDICATOR 
JMP —- PREAD i XFER TO PASCAL READ 
JPWRITE equ 
JSR SETCS ij SETUP C8 INDICATOR 
UMP PWRITE iXFER TO PASCAL WRITE 
YPSTAT EQuU # 
JSR = -SETC8 i SETUP CB INDICATOR 
JMP —- PSTATUS iXFER TO PASCAL STATUS 
NAME s 5 
FUNCTION: PERFORM CROSSBANK MEMORY MOVE 
INPUT A1=SOURCE ADDRESS 
A2=SOURCE END 


A4=DESTINATION START 
CARRY SET=MAIN-~>CARD 
CLR=CARD-->MAIN 
OUTPUT : NONE 
VOLATILE: NOTHING 


RK kk Rk ROK 
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C363: 92 * CALLS > NOTHING 














C363: ae 

C363: 94 * 

C363: C363 95 MOVE EQU * 

C363: 48 96 PHA i SAVE AC 

C364: 98 az TYA i AND Y 

C365: 48 98 PHA 

C366: AD 13 CO 99 LDA RDRAMRD i SAVE STATE OF 
C369: 48 100 PHA i MEMORY FLAGS 
C36A: AD 14 CO 101 LDA RDRAMWRT 

C36D: 48 102 PHA 

C36E: 103 * 

C36E: 104 * SET FLAGS FOR CROSSBANK MOVE: 

C36E: 105 # 

C36E:90 08 C378 106 BCC MOVEC2M i =>CARD-~>MAIN 
C370: 8D 02 CO 107 STA RDMAINRAM i SET FOR MAIN 
C373: 8D OS CO 108 STA WRCARDRAM i TO CARD 

C376: BO 06 C37E 109 BCS MOVESTRT i =>(ALWAYS TAKEN) 
C378: 110 * 

C378: C378 111 MOVEC2M EQu * 

C378: 8D 04 CO 112 STA WRMAINRAM i SET FOR CARD 
C37B:8D 03 CO 113 STA RDCARDRAM i TO MAIN 

C37E: 114 * 

C37E: C37E 115 MOVESTRT EQu * 

C37E: AO 00 116 LDY #0 i; DUMMY INDEX 
C380: 117 # 

C380: C380 118 MOVELOOP EQU * 

C380: Bi 3c 119 LDA (AIL), Y iGET A BYTE 
C382:91 42 120 STA (A4L),¥ iMOVE IT 

C384:E6 42 121 INC A4SL 

C386: DO 02 C38A 122 BNE NXTAL 

C388:E6 43 123 INC A4SH 

C38A: AS 3C 124 NXTA1 LDA A1L 

C38C:C5 3E 125 CMP AaL 

C38E:A5 3D 126 LDA AlH 

C390:E5S 3F 127 SBC A2H 

C392:E6 3C 128 ING AIL 

C394:DO 02 c398 129 BNE col 

C396:E6 3D 130 INC A1H 

C398: 90 E6 caso 131 CO1 BCC MOVELOOP >MORE TO MOVE 
C39A: 132 * 

Caza: 133 * RESTORE ORIGINAL FLAGS: 

C39A: 134 * 

C39A: 8D 04 CO 135 STA WRMAINRAM i CLEAR FLAG2 
C39D: 68 136 PLA i GET ORIGINAL STATE 
C39E: 10 03 C3A3 137 BPL co3 i=>IT WAS OFF 
C3A0: 8D 05 co 138 STA WRCARDRAM 

C3A3: C343 139 CO3 EQU * 

C3A3: 8D 02 CO 140 STA RDMAINRAM i CLEAR FLAG1 
C3A6: 68 141 PLA ET ORIGINAL STATE 
C3A7: 10 03 c3ac 142 BPL MOVERET IT WAS OFF 
C3A?: BD O03 CO 143 STA RDCARDRAM 

CSAC: C3AC 144 MOVERET EQU * 

CBAC: 68 145 PLA i RESTORE Y 

C3AD: AS 146 TAY 

C3AE: 68 147 PLA i AND AC 

C3AF: 60 148 RTS 

C3BO: 149 =e ee eee 

C3BO: 150 * NAME : XFER 

C3BO: 151 * FUNCTION: TRANSFER CONTROL CROSSBANK 

C3BO: 152 * INPUT : $03ED=TRANSFER ADDR 

CaBo: 153 * CARRY SET=XFER TO CARD 

C3BO: 154 * CLR=XFER TO MAIN 

C3BO: 155 * : VFLAG CLR=USE STD ZP/STK 

C3BO: 156 * y SET=USE ALT ZP/STK 

C3B0: 157 * OUTPUT ; NONE 

C3BO: 158 * VOLATILE: $03ED/O3EE IN DEST BANK 

C3BO: 159 * CALLS : NOTHING 

C3BO: 160 * NOTE : ENTERED VIA JMP, NOT JSR 

C3BO: [GT SSS aesS nS aaa ea aS Ss Sa ens 

C3BO: 162 * 

C3Bo: C3BO 163 XFER EQU * 

C3B0: 48 164 PHA i SAVE AC ON CURRENT STACK 
C3B1: 165 * 

C3B1: 166 * COPY DESTINATION ADDRESS TO THE 

C3B1: 167 * OTHER BANK SO THAT WE HAVE IT 

C3B1: 168 * IN CASE WE DO A SWAP: 

C3B1: 169 * 

C3B1:AD ED 03 170 LDA $O03ED i+GET XFERADDR LO 
C3B4: 48 171 PHA i SAVE ON CURRENT STACK 
C3B5:AD EE 03 172 LDA SO3FE iGET XFERADDR HI 
C3B8: 48 173 PHA i SAVE IT TOO 
C3B9: 174 * 

C3B9: 175 * SWITCH TO APPROPRIATE BANK: 

C3B9: 176 * 

C3B9:90 OA c3c5 177 BCC XFERC2M i =>CARD-~>MAIN 
C3BB:8D 03 CO 178 STA RDCARDRAM i SET FOR RUNNING 
C3BE: 8D 05 co 179 STA WRCARDRAM i IN CARD RAM 
C3c1:50 19 c3pc 180 BYC XFERSZP i=>USE STD ZP/STK 
C3C3:70 08 C3cD 181 BYS XFERAZP i=>USE ALT ZP/STK 
c3cs: C3C5 182 XFERC2M Eq@u * 
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C3c5:8D 02 CO 183 STA RDMAINRAM i SET FOR RUNNING 

















C3C8: 8D 04 CO 184 STA WRMAINRAM i+ IN MAIN RAM 

C3CB: 50 OF c3pc +4185 BYC XFERSZP +=>USE STD ZP/STK 
C3cD: 186 * 

C3cD: C3CD 187 XFERAZP EQU * i SWITCH TO ALT ZP/STK 
C3CD: 68 188 PLA i STUFF XFERADDR 
C3CE: 8D EE 03 189 STA $03EE i HI AND 

C3D1: 68 190 PLA 

C3D2: 8D ED 03 191 STA $03ED i LO 

C3D5: 68 192 PLA i RESTORE AC 

C3D6: 8D 09 CO 193 STA SETALTZP i SWITCH TO ALT ZP/STK 
C3D?:6C ED 03 194 JMP: ($03ED) + =>0FF WE GO! 

cape: 195 * 

cape: C3DC 196 XFERSZP EQU * 

C3DC: 68 197 PLA i STUFF XFERADDR 
C3DD: 8D EE 03 198 STA $O3EE i+ HI AND 

C3E0: 68 199: PLA 

C3E1:8D ED 03 200 STA $O03ED + LO 

C3E4: 68 201 PLA i; RESTORE AC 

C3E5:8D 08 CO 202 STA SETSTDZP i =>SWITCH TO STD ZP/STK 
C3E8:6C ED 03 203 JUMP ($03ED) i OFF WE GO! 

C3eB: 0 ge man aon mc am sc mma aca 

C3EB: 205 # NAME : SETCS 

C3EB: 206 # FUNCTION: SETUP IRQ $C800 PROTOCOL 

C3EB: 207 * INPUT  : NONE 

C3EB: 208 * OUTPUT : NONE 

C3EB: 209 # VOLATILE: NOTHING 

C3EB: 210 * CALLS NOTHING 

C3EB: Qi) =e ea 

C3EB: 212 * 

C3EB: C3EB 213 SETCS EQU * 

C3EB: 48 214 PHA i SAVE AC 

C3EC: A9 C3 215 LDA = #<CNOO ; SLOT NUMBER 
C3EE: 8D FB 07 216 STA  C8SLOT i STUFF IT 

C3F1:68 217 PLA i RESTORE AC 

C3F2: 60 218 RTS 

C3F3: 6 INCLUDE CBSPACE 

C3F3: 2 -----------~---------------------------- 

C3F3 3 # THIS IS THE C8XX SPACE: 

C3Fa; Q ------ 2-7 - ~~ $$ $= += === 

C3F3: 0000 5 DO TEST 

s 6 oRe $D800 

C3F3: a ELSE 

Sree NEXT OBJECT FILE NAME IS VIDEO. OBV1 

csoo: cs0o0 8 ORG $C800 

B00: 9 FIN 

CB00: 4C 4A CA 10 JMP PINIT1.0 +PASCAL 1.0 INIT 
cso3: 11 # BASIC INITIALIZATION 

cso3: 12. SSSR Se ee ei eras 

cso3: cso3 13 BASICINIT EQU * 

CB03: AP 06 14 LDA #GOODF8 i CHECK F8 ROM 
CB05:CD B3 FB 15 CMP FSVERSION i IS IT OK? 
cB08:FO OC CB16 16 BEQ@ BINIT1 >YES 

CB0A: 20 78 CF 17 JSR = COPYROM i TRY COPYING TO RAMCARD 
C80D: CD B3 FB 18 CMP FSVERSION 

CB810:FO 04 C816 19 BEG BINIT1 3=>NOW IT’S GOOD 
c812:78 20 SEI i CRASH THE SYSTEM! 
cB813: cs1i3 21 HANG EQu * 

C813: 4c 13 cs 22 JMP HANG i HANG FOREVER 

ce1é: 23 * 

celé: cB1é6 24 BINIT1 EQU * 

CB16:A9 C3 25 LDA #<CNOO + SET HOOKS FOR 
C818:85 37 26 STA CSWH 

CB1A:85 39 27 STA KSWH i IN & OUT 

CB1C:A9 OS 28 LDA #>BASICIN 

C81E:85 38 29 STA  KSWL 

C820: A9 07 30 LDA #>BASICOUT 

C822:85 36 31 STA CSWL 

C824: A? 00 32 LDA #0 i SET FULL 40-COL WINDOW 
C826:85 20 33 STA WNDLFT 

C828: A9 00 34 LDA #0 i ASSUME TEXT MODE 
C82A:2C 1A CO 35 BIT RDTEXT N TEXT MODE? 
C82D: 30 02 c831 36 BMI BINITIA >YES 

C82F:A9 14 37 LDA #20 i IF GR, SET 4 LINES 
C831: ce3i 38 BINITIA EQU * 

C831:85 22 39 STA WNDTOP 

C833: A9 18 40 LDA #24 

C835: 85 23 41 STA WNDBTM 

C837: A9 28 42 LDA #40 

C839: 85 21 43 STA WNDWDTH 

C83B:A5 24 44 LDA CH i COPY USER CH 
C83D: 8D 7B 04 4s STA OLDCH i AS ‘OLD’ SETTING 
C840: AF O01 46 LDA #M. IRG i GET READY TO CLEAR 
C842: 2D FB 04 47 AND MODE i PRESERVE IRQ STATUS 
C845: 8D FB 04 48 STA MODE i CLEAR MODES 
c848:4C SO C8 49? JMP BINIT2 >CONTINUVE AFTER PASCAL 1.0 HOOK 
CB4B: $0 --~--------------~---------------------- 

CBe4B: 51 # 

CS84B: 52 * PASCAL 1.0 INPUT HOOK: 

CS84B: 53 * 

C84B: 00 54 BRK 
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:00 


0000 


:4C 51 C3 


csso 
220 
:DO 
106 
:8D 
:8D 


24 
os 
21 
o1 
oD 


cB85D 


co 
co 


c8sD 
:8D 
:20 
:28 
18 
108 


OF 


42 CD 


CB66 


c874 
co 


:AS 
ace 


21 


21 


c874 


04 
C87E 


C87E 


FB 
C890 


CBAL 





cs8co 
co 
csco 








BRK 

IFNE #*-$C84D 
FAIL 2, ‘C84D 
FIN 

vmP JPREAD 


* IS THERE A CARD? 
* 


BINIT2 EQu * 
JSR TESTCARD 
BNE CLEARIT 
ASL WNDWDTH 
STA SETBOCOL 
STA SETSOVID 


* 


* HOME & CLEAR: 
cf 


CLEARIT equ #* 
STA SETALTCHAR 
JSR OX. FF 
PLP 
cLe 
PHP 


* 





i ERR IF WRONG ADDR 
HOOK ALIGNMENT’ 


i=>G0 TO STANDARD READ 


i SEE IF CARD PLUGGED IN 
i=>IT‘S 40 

i SET 80-COL WINDOW 

i; ENABLE 80 STORE 

i AND 80 VIDEO 


i SET NORM/INV LCASE 
i CLEAR IT 

i CLC ASSURES THAT 

i+ WE PRINT THIS 

i INITIAL CHARACTER 


% COMPENSATE FOR INTEGER BASIC’S 
% HITTING OF $COOO ON INITIAL ENTRY: 


* 


C8BASIC EQU * i BASIC IN/OUT 
BIT RDSOVID ij WHICH MODE? 
BPL CS8B2 +=>40. LEAVE ALONE 
STA SETSOCOL +80. ENABLE STORE. 
* 
# MAKE SURE SCROLLING WINDOW IS 
# AN EVEN NUMBER FOR 80-COLS: 
* 
LDA WNDWDTH 
AND #$FE 
STA WNDWDTH i ROUND IT TO LOWER EVEN 


* 
* COPY USER‘S CH IF IT DIFFERS FROM 
#% WHAT WE LAST PUT THERE: 
* 
c 


8B2 £QU * 
LDA CH iGET IT 
CMP OLDCH 71S IT THE SAME? 
BEQ CB8B3 7=>YES, USE OUR OWN 
STA OQURCH ;=>NO, USE HIS 
C8B3 EQU * 
LDA #GOODF8 i CHECK F8 ROM 
CMP FS8VERSION i IF DIFFERENT, USER 
BEQ@ CBB4 i HAS RELOADED RAMCARD 


* 


* COPY FS ROM TO LANG CARD: 
* 








JSR COPYROM i COPY IT AGAIN 
CMP FSVERSION iIS IT NOW CORRECT? 
BEQ C8B4 i =>GREAT 
JMP HANG 7 =>WE HAVE WRONG ROM! 
* 
CB8B4 EQU * 
PLP i RECOVER CARRY (IN/OUT) 
BCC BOUT + =>PRINT A CHAR 
UMP BINPUT i =>INPUT A CHAR 
BOUT EQU * 
LDA MODE i SAY THAT WE’RE 
AND #255-M. BINPUT i PRINTING 
STA MODE 
JMP BPRINT i ->OUTPUT A CHAR 


INCLUDE BPRINT 





BPRINT EQU * 
LDA CHAR i GET CHARACTER 
cMP #$8D i1S IT C/R? 
BNE NOWAIT #=D>NOPE, NO VIDWAIT 
LDY KBD i 1S KEY PRESSED? 
BPL NOWAIT NO 
cPY #693 +IS IT CTL-S? 
BNE NOWAIT iNO, IGNORE IT 
BIT KBDSTRB i CLEAR STROBE 
KBDWAIT LDY KBD i WAIT FOR NEXT KEYPRESS 
BPL KBDWAIT 
CPY #383 i IF CTL-C, LEAVE IT 
BEQ NOWAIT i IN THE KBD BUFFER 
BIT KBDSTRB i CLEAR OTHER CHARACTER 
NOWATT EQU * 
AND #S7F + DROP POSSIBLE HI BIT 
CMP #20 +1S IT CONTROL CHAR? 
BCS BPNCTL 7 =>NOPE 
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23 JSR CTLCHAR sEXECUTE POSSIBLE CTL CHAR 
24 JMP = BIORET i =>EXECUTED OR IGNORED 
25 * 
26 * NOT A CTL CHAR. PRINT IT. 
27 * 
cacc 28 BPNCTL equ # 
29 LDY OURCH i @ET CH 
30 LDA CHAR i@ET CHAR (ALL @ BITS) 
31 JSR  STORCHAR i STUFF ONTO SCREEN 
32 * 
33 * BUMP THE CURSOR HORIZONTAL: 
34 * 
35 INC  OURCH ‘BUMP IT 
36 + LDA QURCH i ARE WE PAST THE 
37 CMP = WNDWDTH i END OF THE LINE? 
cseE2 38 BCC BIORET i=>NO, NO PROBLEM 
39 JSR =X. CR i YES, DO C/R 
40 * 
CBE2 41 BIORET equ * 
42 LDA QURCH i SET CH AND CV 
43 JSR SETCH i FOR BASIC 
44 LDA GURCV 
45 STA CV 
46 PLA i RESTORE 
47 TAX 
48 PLA iX AND Y 
49 TAY 
50 PLA i AND Ac 
51 LDA CHAR 
52 RTS ; RETURN TO BASIC 
8 INCLUDE BINPUT 
2 * BASIC INPUT: 
3s 
care 4 BINPUT EQU # 
b) LDA MODE i SAY THAT 
6 ORA #M.BINPUT jj WE’RE INPUTTING 
7 STA MODE 
8 LDA CHAR iGET CHAR AT CURSOR AND 
9 LDY CH iGET CURSOR POSITION 
10 STA  (BASL),Y j REPAIR MONITOR’S SILLY ATTEMPT 
c905 11: B. INPUT equ * 
cE 12 JSR INVERT i CREATE OUR OWN CURSOR IMAGE 
13 JSR GETKEY iGET A KEY 
O6 14 STA CHAR i SAVE IT 
cE 15 JSR INVERT ; REMOVE CURSOR 
16 CMP = #$9B ;ESCAPE KEY? 
c718 17 BE@ ESCAP ING YES IT IS 
co 18 JMP NOESC i NO, IT’S NORMAL 
20 * START AN ESCAPE SEQUENCE: 
21 * WE HANDLE THE FOLLOWING ONES: 
22 * @ — HOME & CLEAR 
23 * € - CLR TO EOL 
24 # F - CLR TO EOS 
25 * I - CURSOR UP 
26 * J - CURSOR LEFT 
27 * K - CURSOR RIGHT 
28 * M — CURSOR DOWN 
29 * R - RESTRICT TO UPPERCASE 
30 # T - TURN OFF ESC-R 
31 4 - GOTO 40 COLUMN MODE 
32 * 8 - GOTO 80 COLUMN MODE 
33 * CTL-@G- QUIT (PR#O/IN#0O) 
34 * THE FOUR ARROW KEYS (AS IUKM) 
35 * 
36 MSB OFF 
C918 37 ESCAPING equ # 
cr 38 JSR ESCON + ESCAPE CURSORON 
cB 39 JSR = GETKEY iGET ESCAPE FUNCTION 
cr 40 JSR -ESCOFF j REPLACE ORIGINAL CHARACTER 
41 AND #$7F ;DROP HI BIT 
42 CMP = #%40 S IT LOWERCASE? 
92943 BCC ESC1 NO, DON’T UPSHIFT 
44 AND  #255-$20 ; UPSHIFT 
c929 «45 ESC1 equ # 
46 LDY #ESCNUM i COUNT/ INDEX 
C92B 47 Esc2 EQU * 
co 48 CMP = ESCTAB, Y iIS IT A VALID ESCAPE? 
c935 49 BEQ ESC3 i =>YES 
50 DEY 
co2B OS BPL ESC2 i TRY ‘EM ALL... 
c745°— 52 BMI ESCSPEC ;=>MAYBE IT’S A SPECIAL ONE 
33 # 
C935 «54 ESC3 Eau * 
c9 55 LDA ESCCHAR,Y iGET CHAR TO "PRINT" 
56 AND #S7F i DROP HI BIT (FLAG) 
57 JSR CTLCHAR ; EXECUTE IT 
co 58 LDA ESCCHAR,Y iGET FLAG 
cig 59 BMI ESCAPING i=>STAY IN ESCAPE MODE 
co 60 JMP BB. INPUT ;=>QUIT ESCAPE MODE 
61 * 
C945 62 ESCSPEC EQU * 
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a0uwoon 


AA 
:20 
BA 
:DO 
1:38 
:BO 


1c? 
:FO 
:A2 
18 
160 


100 
100 
:00 
100 





C9AA: AD 
C9AD: 4C 
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C963 


re C960 
FB 04 


FB 04 


C972 


0011 


c983 


C994 
c8 CF 
03 CI9E 
16 C9B4 
CI9E 
O1 


OE C9BO 
03 


0000 


7B 06 
57 c3 


70 ESCSPEC2 


76 ESCNONE 
77 * 
78 ESCSPEC3 


86 ESCTAB 


104 ESCNUM 


106 ESCCHAR 
107 
108 
109 
110 
Lid 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 





127 


# PASCAL STATUS 


CMP 
BNE 
JSR 
LDA 
STA 
JMP 


EQU 


JMP 


DFB 
DFB 
DFB 


124 --~--~--~=-------~. 





#S11 
ESCSPEC2 
QUIT 
#998 
CHAR 
BIORET 


* 
#/R’ 
ESCSPEC3 
MODE 

#M. ESCR 
MODE 

B. INPUT 


* 
#'T! 
ESCNONE 
MODE 
#255-M. ESCR 
MODE 

B_ INPUT 

* 

rae 

tar 

“Be 

"Cr 

“pe 

"ES 

‘Br 

oa 

nye 

Ke 

Me 

+4 

"8° 

$08 

SOA 

$0B 

$15 
#-ESCTAB 
ON 

* 
$0C+$00 
$1C 

$08 

SOA 

$1F 
$1D+$00 
$0B+$00 
$1F+$80 
$08+$80 
$1C+$80 
$0A+$80 
$11+$00 
$12+$00 
$08+$80 
$0A+$80 
$1F+$80 
$1C+$80 





iIS IT ESC-CTLQ? 

i =>NO 

i DO THE QUITTING STUFF 

i RETURN CTL-X AS 

i THE CHARACTER 

i) =>QUIT THE CARD FOREVER 


41S IT ESC-R? 
i =>NO 
+VES, SET IT 


i; QUIT ESCAPE MODE 


i1S IT ESC-T? 
i =>NOTHING 


i QUIT ESCAPE MODE 


i HANDLE OLD ESCAPES 


+LEFT ARROW 
i DOWN ARROW 
i UP ARROW 
iRITE ARROW 


FORMFEED 





















US (STAY ESC) 
BS (STAY ESC) 
Esc) 
Esc) 


Esc) 
Esc) 
Esc) 
Esc) 





128 ---------~------------------------------- 


129 PSTATUS 
130 

131 

132 

133 

134 

135 

136 * 

137 PSTATUS2 
138 
139 
140 
141 
142 
143 


144 * PASCAL 1.0 OUTPUT HOOI 


145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 * 


PSETUP. 


PSTATUS2 


PSTATUS4 


* 
#1 
PSTATUS3 
#3 





#-SCIAA 
2, 'C9AA 


CHAR 
JPWRITE 


i SAVE REQUEST CODE 

i+ SETUP ZP STUFF 

iIS IT ‘READY FOR OUTPUT?’ 
+ =>NO 

i YES, READY FOR OUTPUT 


41S IT ‘ANY INPUT?’ 
i =>YES 
i IORESULT='ILGL OPERATION’ 








i PADDING 


HOOK ALIGNMENT ’ 


i GET OUTPUT CHARACTER 
i+=>USE STANDARD WRITE 
































C9BO: 
C9BO: 
C9B3: 
COBA: 
C9B6: 


AD 
OA 
A2 
60 


C9B7: 


C9B7: 
C9B7: 
C9B7: 
C9B7: 
C9B7: 
C9B7: 
C9B?: 
COBB: 
C9BE: 
coCi: 
c9C3: 
c9cé: 
c9Cé: 
c9Cé: 
c9Cé: 
c9Cé: 
c9Ccé: 
c9c?: 
C9CB: 
c9CD: 
c9cD: 
c9CD: 
c9CcD: 
c9cD: 
c9DO: 
c9D2: 
C9D4: 
Cc9Dé: 
c9Ds: 
C9ODB: 
CODD: 
CODF: 
CODF: 
C9DF: 
C9ODF: 
CODF: 
C9ODF: 
C9E2: 
C9E4: 
CIES: 
C9ES: 
C9EA: 
C9EC: 
C9EE: 
C9FO: 
C9F2: 
C9OFS: 
C9F7: 
C9F7: 
C9F7: 
C9FA: 
C9FC: 
C9OFF: 
CcAQ2: 
CcAo2: 
CAOS: 
CAQ7: 
CAOA: 
CAOA: 
CAOA: 
CAOD: 
CAOF: 
CA11: 
CA14: 
CA16: 
Cais: 
CA1B: 
CA1D: 
CAIF: 
cAa2i: 
cA24: 
CA24: 
CA24: 
CA27: 
ca27: 
CA27: 
CA27: 
CA27: 
CAQ7: 
CA27: 
CA27: 
CA27: 
CA27: 
CA27: 


co 
DO 
AC 
20 
09 
8D 


AD 
29 
DO 


AD 
29 
FO 
AD 
29 
DO 
AD 
co 
90 
29 
8D 


4c 


00 


0o0 


95 
OB 
7B 
o1 
80 
7B 


FB 
BO 
13 
FB 
10 
oc 
7B 
EO 
os 
DF 
7B 


E2 


C9BO 
co 


C9B7 


Cc9Cé 
fo}-} 
CF 


06 


c9C& 
04 


C9ODF 


06 
CIF7 
CAOQA 

cA 


caoa 
C9F7 


CODF 
06 


cao2 
cao2 
cao2 
CAOA 
cA 
CAOA 


C9F7 
04 


04 


cao2 
04 


04 


CAOA 
04 


cA24 
04 


CcA24 
06 


CA24 
06 


CA24 
cB 


CA27 


CA27: AD FB OS 


156 
157 
158 











210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 


PSTATUS3 EQu * 
LDA KBD 
ASL A 

PSTATUS4 LDX #0 
RTS 





BASIC INPUT, CONTINUE! 
NOT AN ESCAPE SEQUENCE- 


EQU * 

CMP #95 

BNE B. NOPICK 
LDY OURCH 
JSR PICK 

ORA #$80 

STA CHAR 


























i IS THERE A KEYPRESS? 
i STROBE-->CARRY 
i IORESULT= ‘GOOD’ 


i NOT ESCAPE KEY 


41S IT PICK? 

i =>NOPE 

i YOU CAN PICK YER FRIENDS. . 
i YES, PICK THE CHAR 

i ALWAYS PICK AS NORMAL 

i SAVE AS KEYSTROKE 


TRACK QUOTATION MARKS FOR THE 


* 
* 
# RESTRICT-UPPERCASE FEATURE: 
# 
B 


. NOPICK EQU * 





i ARE WE DOING LITERAL INPUT? 


>YES 


i GET THE CHAR 

#1S IT A DOUBLE QUOTE? 
4;=>YES, FLIP LITERAL MODE 
+1S HE MOVING LEFT? 

NOPE, JUST REG CHAR 
iGRAB PRIOR CHAR 

i =>NOT DELETING A QUOTE 





LDA MODE 
AND #M.LIT 
BNE B. CHACAN 
* 
# LITERAL INPUT’S INACTIVE. SEE IF 
* WE CAN START LITERAL INPUT: 
* 
LDA CHAR 
CMP #BAZ 
BEQ B. FLIP 
cMP #388 
BNE B. FIXCHR 
JSR GETPRIOR 
BNE B. FIXCHR 
BEQ B. FLIP 


LITERAL INPUT 


* 
* ’S ACTIVE. SEE 
* IT SHOULD BE 
* 
B 


CANCELLED YET: 


. CHACAN EQU * 


i (ALWAYS) HIE‘’S DELETED THE QUOTE 


IF 


iGET CURRENT CHAR 

71S CURRENT CHAR THE CLOSING QUOTE? 
i3=>YES 

i CANCEL LITERAL INPUT 

i IF CTLX OR RETURN 

i OR BACK OVER "“ 


i BACKSPACE? 
3=>NO, NOT DELETING QUOTE 


i+GET CHAR HE‘S DELETING 
*+=>NOT DELETING A QUOTE 


iFLIP THE MODE 


i CANCEL LITERAL INPUT 


iESC-R FACILITY ACTIVE? 


i =>NOPE 
i+LITERAL INPUT ACTIVE? 


+=>YES, NO UPSHIFT 
iGET THE CHAR 
41S CHAR LOWERCASE? 


+=>NO, NO NEED TO SHIFT IT 
+RESTRICT TO U/C 


QUOTE 


LDA CHAR 
CMP #SA2 
BEQ B. CANLIT 
cMP #398 
BEQ B. CANLIT 
cmMP #$8D 
BEG B. CANLIT 
cMP #$88 
BNE B. FIXCHR 
JSR GETPRIOR 
BNE B. FIXCHR 
* 
B. FLIP EQU * 
LDA MODE 
EOR #M. LIT 
STA MODE 
JMP B. FIXCHR 
B. CANLIT EQU * 
LDA MODE 
AND #255-M. LIT 
STA MODE 
* 
B. FIXCHR EQU * 
LDA MODE 
AND #M. ESCR 
BEQ B. INRET 
LDA MODE 
AND #M. LIT 
BNE B. INRET 
LDA CHAR 
cMP #$E0 
BCC B. INRET 
AND #$DF 
STA CHAR 
B. INRET EQU * 
JMP BIORET 
* NAME GETPRIOR 
%* FUNCTION: GET CHAR BEFORE CURSOR 
* INPUT OURCH, OURCV 
% OUTPUT ‘BEG’ IF CHAR=DBL. 
* : ‘BNE’ IF NOT 
#* VOLATILE: AC, ‘TEMP1’ 
* CALLS PICK, X, BS, X. FS 
* 
GETPRIOR Equ * 
LDA OURCYV 


80-Column Firmware Listing 


i DON‘T TRY TO LOOK 





















































CA2A: OD 
CA2D: FO 
CA2F: 98 
CA30: 48 
CA31: 20 
CA34: AC 
CA37: 20 
CASA: OF 
CA3C: 8D 
CA3F: 20 
CA42: 68 
CA43: AB 
CA44: AD 
CA47: CF? 


CA49: 60 


CA4A: AP 
CA4C: 4C 


CA4F: AD 
CAS1: 8D 


CAS4: 20 
CAS7: 20 


CAE: AD 
CAAg: AD 
CAas: 38 
Caa7: EF 


CAAC: 4C 


7B 
1A 


DB 
7B 
O1 
BO 
78 
26 


78 


22 
Si 


20 
FB 


9B 
ce 


7B 
cs 


DD 
FB 


08 
2D 


FB 
7B 
20 


OF 


oS 
CA49 


cB 
os 
CF 
04 
cc 
04 


CcA49 


CA4A 
cA 
CA4F 


CAS1L 
04 
cD 
CF 


cB 
CAé2 


CA62 


CA74 
CF 


cB 


06 


04 


CABA 


CABA 
06 


CABE 
CF 


CE 
04 


CACB 


CAE. 
06 

CAAF 
06 


06 
cB 








ORA OURCH 3 BACK IF @ UPPER-LEFT 
BEG GPX i CORNER OF WINDOW!!! 
TYA i SAVE Y 
PHA 
JSR xX. BS iBACK UP 1 CHAR 
LDY OURCH i+@GET CH AND 
JSR PICK + PICK PRIOR CHAR 
ORA #380 +PICK AS NORMAL VIDEO 
STA TEMP 1 iHOLD CHAR 
JSR xX.FS 
PLA i RESTORE 
TAY a 
LDA -TEMP1 
CMP #SA2 i 1S IT DBL QUOTE? 
GPX EQu * 
RTS i RETURN WITH BEG/BNE 
INCLUDE PINIT 
PINIT1.0 equ) # 
LDA #M. PASCAL+M. PAS1.0 
JMP PINIT2 
PINIT EQU * 
LDA #M.PASCAL i SAY WE‘RE 


+ 
PINIT2 EQu * 
STA MODE i RUNNING PASCAL 
JSR FULL8O0 i SET FULL 24x80 WINDOW 
JSR PSETUP i SETUP ZP STUFF 
* BASE ADDR IS WRONG, BUT X.FF FIXES IT BELOW: 
* JSR BASCALC i FORCE A GOOD BASCALC 
* 
* SEE IF THE CARD‘S PLUGGED IN: 
* 
JSR TESTCARD 41S IT THERE? 
BEG PIGOoOD i=>YES 
LDXx #9 i IORESULT=‘NO DEVICE’ 
RTS 
* 
PIGOOD EQU * 
STA SETSOCOL i ENABLE 80 STORE 
STA SETSOVID + AND 80 VIDEO 
STA SETALTCHAR i NORM+INV LCASE 
JSR X. FF ;HOME & CLEAR IT 
JSR INVERT i PUT CURSOR THERE 
LDX #0 i IORESULT=’GOOD’ 
RTS 
INCLUDE PREAD 
# PASCAL INPUT: 
PREAD EQU * 
JSR PSETUP +SETUP ZP STUFF 
* 
JSR GETKEY iGET A KEYSTROKE 
AND #S7F +DROP HI BIT 
STA CHAR i SAVE THE CHAR 
LDX #0 i IORESULT= ‘GOOD’ 
LDA MODE i ARE WE IN 1. O-MODE? 
AND #M. PAS1.O 
BEG PREADRET2 4 =>NOPE 
LDx #<CNOO i YES, RETURN CN IN X 


* 
PREADRET2 EQU * 

LDA CHAR 

RTS 

INCLUDE PWRITE 


* PASCAL OUTPUT: 


RESTORE CHAR 





PWRITE EQU * 
STA CHAR i SAVE CHARACTER 
JSR PSETUP. i; SETUP ZP STUFF 


JSR INVERT TURN CURSOR OFF 


LDA MODE i ARE WE DOING GOTOXY? 
AND #M. GOXY 
BEQ PWRITES i=>NO, PRINT IT 
* 
* HANDLE GOTOXY STUFF: 
* 
PWRITE2 EQuU * 
LDA xCOQORD ij ARE WE WAITING FOR X? 
BPL GETY i=>NO, THIS IS Y 
LDA CHAR 
SEC 
SBC #32 i MAKE BINARY 
STA XCOORD 
JMP PWRITERET i=>NOW WAIT FOR Y 
* 


Monitor ROM Listings 


AD 
:38 
EF 
:8D 
120 
:AD 
:6D 
:AD 
:29 
:8D 
:DO 


:AD 
:c9 
FO 
1c? 
:BO 
:20 
4c 


:AD 
:09 
:8D 


:6D 
230 


109 
AC 
:20 


:AD 
229 
:FO 
CE 
:DO 


£20 
:20 


:20 
AQ 
:60 


:E6 
:DO 
:E6& 


: AD 
:10 
:@D 
160 


7B 


20 
FB 
St 


7B 
FB 
F7 
FB 
44 


7B 
1E 
OA 
20 
15 
99 


FB 
08 
FB 
FF 
FB 
24 


80 
7B 
F2 


FB 
OL 
oS 
7B 
06 


EC 


DD 
00 


02 
4F 


FS 
10 


CAAF 
06 


os 
cB 
06 
os 
04 


04 
CBOF 


CACB 
06 


CADC 
CAEB 


cB 
cB 


CADC 
04 


04 


06 
CBOF 


CAEB 


05 
cE 


oS 


CBOF 


04 
CBO? 
oS 
CBOF 
cBo? 
cc 


CBOF 
cE 


cB1iS 
CB1B 
CB1B 


CB15 
co 


* NOW DO THE GOTOXY: 














* 1 
GETY Eau * 
LDA CHAR i CONVERT YCOORD 
SEC 
SBC #32 
STA OURCV 
JSR BASCALC 1 COMPUTE BASE ADDRESS 
LDA XCOORD 
STA OURCH 
LDA MODE i+ TURN OFF GOTOXY 
AND #255-M. GOXY 
STA MODE 
BNE PWRITERET i=>DONE (ALWAYS TAKEN) 
* 
PWRITES EQU * 
LDA CHAR +GET CHAR TO PRINT 
CMP #S1E 41S IT GOTOXY? 
BEG STARTXY +=>YES 
CMP #620 41S IT OTHER CTL? 
BCS PWRITE4 4=>NO, PRINT IT 
JSR CTLCHAR i; EXECUTE IT IF POSSIBLE 
JMP PWRITERET + =>EXECUTED OR IGNORED 
* 
* START THE GOTOXY SEQUENCE: 
* 
STARTXY Equ * 
LDA MODE i+ TURN ON FLAG 
ORA #M. GOXY 
STA MODE 
LDA #-1 +SET X NEGATIVE TO 
STA XCOORD i+ SHOW WE NEED IT 
BMI PWRITERET 4#=>EXIT TILL COORDS COME BY (ALWAYS) 
* 
#* JUST A PRINTABLE CHARACTER: 
* 
PWRITE4 EQu * 
ORA #380 i FORCE TO NORMAL 
LDY QURCH i GET CH 
JSR STORCHAR iSTUFF IT! 
* 
# BUMP CURSOR HORIZONTAL: 
* 
INC OURCH i; BUMP IT 
LDA OURCH + ARE WE PAST THE 
CMP WNDWDTH i END OF THE LINE? 
BCC PWRITERET 4=>NO, NO PROBLEM 
* 
* IF IN TRANSPARENT MODE, DON‘T 
# WRAPAROUND THE RIGHT EDGE... 
* 
LDA MODE i GET MODE 
AND #M. TRANS i WELL??? 
BEQ PWWRAP 3 =>NOT TRANSPARENT 
DEC OURCH iPIN AT RIGHT EDGE 
BNE PWRITERET i (ALWAYS TAKEN) 
* 
PWWRAP EQu * 
JSR X.CR i YES, DO C/R 
JSR xX. LF i AND L/F 
* 
PWRITERET EQU * 
JSR INVERT i+ TURN CURSOR ON 
LDX #0 i TIORESULT=’GQOD’ 
RTS 
INCLUDE SUBS1 
* NAME GETKEY 
# FUNCTION: GET A KEYSTROKE 
* INPUT NONE 
* OUTPUT : AC=KEYCODE 
# VOLATILE: NONE 
* 
GETKEY EQU * 
INC RNDL i BUMP RANDOM SEED 
BNE GETK2 
INC RNDH 
GETK2 EQu * 
LDA KBD i KEYPRESS? 
BPL GETKEY + =>NOPE 
STA KBDSTRB + CLEAR STROBE 
RTS 
* NAME TESTCARD 
* FUNCTION: SEE IF 80COL CARD PLUGGED IN 
* INPUT : NONE 
#* OUTPUT *BEQ’ IF CARD AVAILABLE 
* : ‘BNE’ IF NOT 
# VOLATILE: AC, Y 


80-Column Firmware Listing 





























CB24: CcB24 28 TESTCARD EQu * 


cB24: AD 1¢ co 29 LDA RDPAGE2 i; REMEMBER CURRENT VIDEO DISPLAY 
CB27: 0A 30 ASL A ; IN THE CARRY 

cB28:a9 88 31 LDA #888 ) USEFUL CHAR FOR TESTING 
CB2A: 2c 18 CO 32 BIT RDBOCOL ;REMEMBER VIDEO MODE IN ‘N’ 
CB2D: 8D 01 CO 33 STA SETSOCOI i ENABLE BOCOL STORE 
CB30: 08 24 PHP ;LOCK INTERRUPTS WHILE 
CB31: 78 35 SEI i) SCREENHOLES ARE WRONG 
CB32: 08 36 PHP i SAVE 'N’ AND /C’ FLAGS 
CB33:8D 55 co 37 STA  TXTPAGE2 i SET PAGE2 

CB36: AC 00 04 38 LpY $0400 ;GET FIRST CHAR 

CB39:8D 00 04 39 STA $0400 iSET TO A ‘#! 

CB3C: AD 00 04 40 LDA $0400 i GET IT BACK FROM RAM 
CBSF:8C 00 04 41 STY $0400 i; RESTORE ORIG CHAR 
CB42: 28 42 PLP i RESTORE ‘N’ AND ‘C’ FLAGS 
CB43:B0 03 CR4B 43 BCS  STAY2 i STAY IN PAGE 

CB45:8D 54 co 44 STA  TXTPAGE1 ; RESTORE PAGE1 

cB4e: CB48 45 sTay2 Eau * 

CB48:30 03 CB4D 46 BMI STAYBO }=>STAY IN BOCOL MODE 
CB4A: 8D 00 CO 47 STA CLRBOCOL i TURN OFF S8O0COL STORE 
CB4D: CB4D 48 STAYBO EQU * 

CB4D: 28 49 PLP ; ALLOW IR@ AGAIN 

CB4E: CB4E SO TESTFAIL EQU * 

CB4E:c9 88 51 cmp #888 ;WAS CHAR VALID? 

CBSO: 60 S2 RTS i RETURN RESULT AS BEQ/BNE 
CBS1: Ses ee ea 

CBS1: 54 * NAME : BASCALC, BASCALCZ 

CBS1: SS *# FUNCTION. CALC BASE ADDR FOR SCREEN LINE 

CBS1: S6& * INPUT QURCV (BASCALC) 

CBS1: S57 # : AC=CV (BASCALCZ) 

cBS1: 58 * OUTPUT : BASL/BASH 

CBS1: S59 * VOLATILE: NOTHING 

CBS1: 60 #* CALLS : SNIFFIR@ 

CBS1: a al 

CBS1: 62 * 

CBS1: FC75S 63 SNIFFIRG@ EQu $FC75S 

CBS1: 64 * 

CBS1: cBS1i 65 BASCALC EqQu * ij RIPPED OFF FROM F& ROM 
CBS51:18 66 CLC i SHOW ENTRY POINT 
CB52:90 01 CBS5 67 BCC  BSCLC1 

cBS4: CBS4 68 BASCALCZ EQU * 

CB54: 38 6? SEC + SHOW ENTRY POINT 

CBSS: CBSS 70 BSCLC1 EQU * 

CBS5: 48 72 PHA i SAVE AC 

CBS6:BO 03 CBSB 72 BcS BSCLC1A 4=>CV ALREADY IN AC 
CBS8:AD FB OS 73 LDA OURCYV 

CBSB: CBSB 74 BSCLCI1A EQu * 

CBSE: 48 75 PHA 

CBSC: 4A 76 LSR A 

CBSD: 29 03 77 AND #03 

CBSF:09 04 78 ORA #S04 

CB61:85 29 79 STA BASH 

CB63: 8D FB O07 B80 STA OLDBASH i SAVE FOR F/W PROTOCOL 
CB46: 68 81 PLA 

CB47:29 18 82 AND #18 

CB69: 90 02 CBéD 83 BCC BSCLC2 

CB6B: 69 7F 84 ADC #S7F 

CB46D:85 28 85 BSCLC2 STA BASL 

CB6éF: 0A 86 ASL A 

CB70: 0A 87 ASL A 

CB71:05 28 88 ORA = BASL 

CB73:85 28 89 STA BASL 

cB75: 90 * 

CB75: 91 * HANDLE THE SCROLLING WINDOW: 

CB75: 92 * 

CB75:A5 20 93 LDA WNDLFT 

B77: 08 94 PHP i PRESERVE CARRY 
CB78:2C 1F CO 95 BIT RDBOVID i WHICH MODE? 

CB7B:10 01 CB7E 96 BPL  BASCLC3 }=>40. NO DIVIDE. 

CB7D: 4A 97 LSR A i DIVIDE BY 2 FOR S0COL WINDOW 
CB7E: CB7E 98 BASCLC3 equ # 

CB7E: 28 99 PLP i RESTORE CARRY 

CB7F:65 28 100 apc BASL ; ADJUST BASE FOR WNDLFT 
cBa1:85 28 101 STA BASL 

CB@3:8D 7B 07 102 STA OLDBASL i SAVE FOR F/W PROTOCOL 
cBa6: 103 * 

cBaé: 104 * SNIFF FOR IRG IF NECESSARY: 

cBae: 105 * 

CB86: AD FB 04 106 LDA MODE 

CB89: 29 O1 107 AND #M. IRQ 

CBSB:FO OA CB97 108 BEG BASCLCX ;=>IR@ DISABLED, RETURN 
CBSD: AD FB 04 109 LDA MODE ;1S BASIC RUNNING? 
CB90: 29 20 110 AND #M. PASCAL 

CB92:D0 03 CB97 «111 BNE  BASCLCX ; =>DON‘T SNIFF UNDER PASCAL 
CB94: 20 75 FC 112 VSR SNIFFIRG@ = GO -DO IT 

cBq7: CB97 113 BASCLCX equ * 

B97: 68 114 PLA i RESTORE AC 

CB98: 60 115 RTS 

cB99: 116 -----------~---------------------------- 

cBq9: 117 * NAME: CTLCHAR 

CB99: 118 * FUNCTION: EXECUTE CTL CHAR 

CB99: 119 * INPUT : AC=CHAR 
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CB99: 
CB99: 
CB99: 
CB99: 
CB99: 
CB99: 
CB99: 
CB99: 
CB9C: 
CB9D: 
CB9E: 
CB9F: 
CBF: 
CBA2: 
CBA4: 
CBA6: 
CBA?: 
CBAB: 
CBAB: 
CBAC: 
CBAE: 
CBAE: 
CBAE: 
CBB1: 
CBB1: 
CBB2: 
CBB2: 
CBB3: 
CBB4: 
CBBS: 
CBBé: 
CBB6: 
CBB6: 
CBB7: 
CBBA: 
CBBB: 
CBBC: 
CBBC: 
CBBC: 
CBBC: 
CBBC: 
CBBE: 
CBC1: 
CBC3: 
CBCS: 
CBCB: 
CBCB: 
CcBCC: 
CBCE: 
CBCF: 
CBCF: 
CBCF: 
CBDO: 
CBD1: 
CBD3: 
CBDS: 
CBD6é: 
CBD8: 
CBDA: 
CBDB: 
CBDB: 
CBDB: 
CBDB: 
CBDB: 
CBDE: 
CBEO: 
CBE2: 
CBE2: 
CBES: 
CBE8: 
CBEB: 
CBEB: 
CBEC: 
CBEC: 
CBEC: 
CBEC: 
CBEC: 
CBEF: 
CBF1: 
CBF3: 
CBF6: 
CBF8: 
CBFA: 
CBFD: 
CBFD: 
CBFD: 
CBFF: 
cco2: 
ccos: 
cco7: 
cco?: 
ccoc: 


8D 
48 
98 
48 


AC 
co 
90 


DO 


38 
BO 


20 
18 


68 
AB 
68 
60 


48 
B9 
48 
60 


CE 
10 


8D 
cE 
20 


60 


AD 
29 
DO 
AD 
29 
FO 
20 


Ag? 
8D 
AD 
29 
bo 
20 


78 


BS& 


58 


o1 
FC 


o1 
F6 


7B 
OB 
21 


7B 
7B 
34 


FB 
20 
OA 
FB 
40 
03 
48 


00 
7B 
FB 
20 
03 
91 


CB99 
04 


04 
CBAB 
cc 
CBAE 
CBAB 
CBB2 
CBAE 
cB 


CBB2 


CBB6 


cc 


CBBC 


CBC3 


CBCF 


CcBD1 


CBDO 


CBDB 
os 
CBEB 


CBE2 
os 
OSs 
cc 
CBEB 


CBEC 
04 


CBFD 
04 


CBFD 
cD 


CBFD 


05 
04 


ccoc 
cc 
ccoc 


120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 


145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 


158 
159 
160 
141 
162 
163 
164 


166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
97: 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 











#* OUTPUT “BCS’ IF NOT CTL 
“ : *BCC’ IF CTL EXECUTED 
# VOLATILE: NOTHING 
* CALLS : MANY THINGS 
* 
CTLCHAR EQU # 
STA TEMP1 i TEMP SAVE OF CHAR 
PHA i SAVE AC 
TYA i SAVE Y 
PHA 
* 
LDY TEMP iGET CHAR IN QUESTION 
CPY  #$07 s1S IT NUL... ACK? 
BCC  CTLCHARX ;=>YES, NOT USED 
LDA  CTLADH-7,Y i1S IT CTL? 
BNE  CTLGO i; =>YES 
CTLCHARX EQU) * 
SEC iSAY ‘NOT CTL‘ 
BCS  CTLRET ; =>DONE 
* 
cTLeo equ # 
JSR CTLXFER ; EXECUTE SUBROUTINE 
* 
cL i SAY ‘CTL CHAR EXECUTED’ 
CTLRET EQuU # 
PLA ; RESTORE 
TAY a ¥ 
PLA i AND AC 
RTS 
* 
CTLXFER EQuU) # 
PHA i; PUSH ONTO STACK FOR 
LDA  CTLADL-7,Y i TRANSFER TRICK 
PHA 
RTS ;XFER TO ROUTINE 
* 
#* EXECUTE BELL: 
* 
X. BELL equ * 
LDA #40 ; RIPPED OFF FROM MONITOR 
JSR WAIT 
LDY  #$C0 
BELL2 LDA = #$0C 
JSR WAIT 
LDA SPKR 
DEY 
BNE BELL2 
RTS 
* 
WAIT Eau * j RIPPED OFF FROM MONITOR ROM 
SEC 
wWalT2 PHA 
WAITS SBC #1 
BNE WAITS 
PLA 
SBC #1 
BNE WAIT2 
RTS 
* 
#* EXECUTE BACKSPACE: 
* 
X. BS equ) # 
DEC OURCH i BACK UP CH 
BPL BSDONE i =>DONE 
LDA  WNDWDTH i BACK UP TO PRIOR LINE 
BS40 EGU # 
STA QURCH i SET CH 
DEC OURCH 
JSR X. US ;NOW DO REV LINEFEED 
BSDONE EQU # 
RTS 
* 
#* EXECUTE CARRIAGE RETURN: 
* 
X.CR Eau * 
LDA = MODE i WHICH LANGUAGE? 
AND #M. PASCAL 
BNE X. CRPAS ;=>PASCAL, NO CLR EOL 
LDA = MODE i; INPUT OR OUTPUT? 
AND = #M. BINPUT 
BEQ =X. CRPAS }=>OUTPUT. NO CLEARING 
JSR -X.GS i CLEAR TO EOL 
* 
X. CRPAS EQU) # 
LDA #0 i BACK UP CH TO 
STA OURCH i BEGINNING OF LINE 
LDA = MODE i ARE WE IN BASIC? 
AND = #M. PASCAL 
BNE X. CRRET i=>PASCAL, AVOID AUTO L/F 
JSR OX. LF i EXECUTE AUTO LF FOR BASIC 
X. CRRET Eau # 
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CcCOc: 60 212 RTS 

ccoD: 0000 213 Do ° 

Ss 214 * 

s 215 * EXECUTE SYNC: 
Ss 216 * 

s 217 X. SYN EQU * 

Ss 218 LDA RDVBLBAR 
Ss 219 BPL. X. SYN 
Ss 220 X. SYN2 LDA RDVBLBAR 
s 221 BMI X. SYN2 
s 222 RTS 

ccoD: 223 FIN 

CCcoD: 224 * 

ccoD: 225 * EXECUTE HOME: 

CccoD: 226 * 

ccoD CCOD 227 X.EM EQU * 

CCOD: AS 22 228 LDA WNDTOP 
CCOF: 8D FB 0S 229 STA OURCV 
CC12:A9 00 230 LDA #0 
ccC14:8D 7B 0S 231 STA OURCH 
cc17:4C 51 CB 232 JMP BASCALC 
CCIA 233 * 

CC1A 234 * EXECUTE CLEAR LINE: 
CC1A 235 * 

CC1A: CC1A 236 X. SUB EQu) # 

CC1A: A4 21 237 LDY WNDWDTH 
ccic: 88 238 DEY 

cciD CC1D 239 X. SUB8O EQU * 
CC1D: A? AO 240 LDA #° 

CCiF CC1F 241 X. SUBLP EQuU * 
CC1F:20 F2 CE 242 JSR STORCHAR 
CC22: 88 243 DEY 

CC23:10 FA CCiF 244 BPL X. SUBLP 
CC25: 60 245 RTS 

cC26: 246 ¥ 

cc26: 247 * EXECUTE FORWARD SPACE: 
cc26: 248 * 

cC26 CC26 249 X.FS Eau # 
CC26:EE 7B 05 250 INC  QURCH 
cc29: AD 7B 05 251 LDA  QURCH 
cc2c:Ccs 21 252 CMP = WNDWDTH 
CC2E:90 03 +CC33 253 BCC X. FSRET 
CC30: 20 EC CB 254 JSR =X. CR 
cc33: 255 # 

cca3: CC33° 256 X. FSRET EQU) * 

CC33: 60 257 RTS 

cC34: 258 * 

cca4: 259 * EXECUTE REVERSE LINEFEED: 
cca4: 260 # 

C34: CC34 261 X.US EQU # 

CC34: CE FB O5 262 DEC OURCV 
CC37:30 07 CC40 263 BMI xX. US1 
CC39: AD FB O05 264 LDA = GURCV 
cC3C:C5 22 265 CMP WNDTOP 
CC3E:BO O05 cC45 266 BCS xX. US2 
cc4o: 267 * 

cC40: 268 * PIN CV TO WINDOW TOP: 
cc4o: 269 * 

cc4o: cC40 270 X.US1 equ) # 
CC40:EE FB OS 271 INC  OURCV 
CC43:FO 03 cc48 4272 BEG X, USRET 
cc4s: cC45 273 X.us2 EQU * 

cc45: 20 51 CB 274 JSR BASCALC 
cc4e8: CC48 4275 X. USRET EQu * 

CC48: 60 276 RTS 

cCc49: 277 * 

cCc49: 278 * EXECUTE "NORMAL VIDEO" 
cc4a9: 279 #* 

cc49?: cc49 280 X.SO EQU * 

CC49: AD FB 04 281 LDA MODE 
CC4c: 29 FB 282 AND #255-M. VMODE 
CC4E: AO FF 283 LDY #255 
CCSO: DO 07 ccs9 284 BNE STUFFINV 
ccse: 285 * 

ccs2: 286 * EXECUTE “INVERSE VIDEO" 
ccse: 287 * 

ccs2: ccs2 288 X.SI equ # 

CCS5S2: AD FB 04 289 LDA MODE 
CC55:09 04 290 ORA #M. VMODE 
CC57: AO 7F 291 LDY #127 
cc59?: CC59 292 STUFFINV equ) # 

CCS9: 8D FB 04 293 STA MODE 
CcCSC:84 32 294 STY INVFLG 
CCSE: 60 295 RTS 

CCSF: CCSF 297 CTLADL equ) # 

CCS5F: BB 298 DFB >X. BELL-1 
CC40: DA 299 DFB >X. BS-1 
C41: 00 300 DFB O 

CC42: 90 301 DFR >X.LF-1 
CC63: 22 302 DFB PENTHL 
C44: 41 303 DFB >X. FF~1 
CC65: EB 304 DFB >X. CR-1 
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iNO MORE ROM SPACE! 


i WAIT FOR VBL 

i =>WAIT FOR VIDEO SCAN 
iNOW WAIT FOR 

i BLANKING TO BEGIN 


i STUFF CV 


i STUFF CH 
i RETURN VIA BASCALC (UGH!) 


* ; BLANKIE BLANK 


i STUFF THE BLANK 


4=>CLEAR THE LINE 


BUMP CH 

iGET THE POSITION 

i OFF THE RIGHT SIDE? 
NO, GOOD 

YES, WRAP AROUND 





+ BACK UP CV 
=>O0FF TOP OF SCREEN 


i OFF TOP OF WINDOW? 
i=>NO, STILL IN WINDOW 


i PUT BACK WHERE IT WAS 
i 1T GOES TO O ALWAYS 


i RECOMPUTE BASE ADDR 


i SET MODE BIT 
i SET ‘NORMAL ‘ 


i (ALWAYS) 


i SET MODE BIT 
i SET ‘INVERSE’ 


i SET MODE 
i STUFF FLAG TOO 


i BEL 
iBS 
HT 
PLP 
iVT 
i FF 
icR 



















































































ccéé: 
ccé7: 
ccés: 
cCé9: 
CCOA: 
CCOB: 
ccéc: 
ccéD: 
CCéE: 

CCF: 
cc7o: 
cc71: 
cC72: 
cC73: 
CcC74: 
cc75: 
CC76: 
CC77: 
cc78: 
cc7s: 
cc78: 
cCc79: 
CC7A: 
CC7B: 
cc7c: 
CC7D: 
CC7E: 
CC7F: 
ccso: 
cca: 
cce2: 
ccs3: 
cce4: 
cces: 
cceé: 
CC87: 
cces: 
ccs9: 
CCBA: 
CC8B: 
ccec: 
ccsD: 
CCSE: 
CC8F: 
cc90: 
ccgi: 
ccai: 
cca: 
ccqi: 
ccai: 
ccai: 
cca: 
CC97: 
cco9: 
CC9B: 
CCIE: 
CCIE: 
CCAO: 
CCAL: 
CCA4: 
CCA4: 
CCA4: 
CCA4: 
CCA4: 
CCAS: 
CCA6: 
CCAB: 
CCAA: 
CCAA: 
CCAB: 
CCAC: 
CCAE: 
CCAE: 
CCAE: 
CCB1: 
CCB3: 
CCBS: 
CCBé: 
CCBB: 
cCBB: 
CCB8: 
CCBB: 
CCBE: 
ccco: 
ccco: 
ccco: 
ccco: 
ccc: 
ccce: 
cccs: 
ccce: 
CCCB: 


48 
Si 
00 
se 


00 
00 
oF 
Aga 
AZ 
iele) 
oc 
19 
00 
25 
47 
00 
33 


EE 
AD 
cs 
BO 


A4 
88 
BC 


BA 
48 
A2 
DO 


BA 
48 
A2 


2c 
10 
AS 
48 


20 
2c 
10 


os 
78 
AD 
20 
AD 
28 


FB 
FB 
23 
03 
20 
23 


FB 


o1 
04 


00 


IF 
os 
21 


21 


Di 


Si 


SS 
Di 
54 


cc78 


cCA4 


CCAE 
CCAA 


CCAE 


CCBS 


cCBS8 
cc 


cD11 


co 
cc 
co 


305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 


347 


DFB >X. 80-1 
DFB >X. SI-1 
DFB OO 
DFB >X. DC1i-1 
DFB >X. DC2-1 
DFB O 
DFB ° 
DFB >X. NAK=-1 
DFB >SCROLLDN-1 
DFB >SCROLLUP-1 
DFB O 
DFB >X. EM-1 
DFB  >X. SUB-1 
DFB ° 
DFB  >X. FS-1 
DFB >X. GS-1 
DFB oO 
DFB  >X. US~1 
* 
CTLADH eau) * 
DFB  <X. BELL~1 
DFB <X. BS-1 
DFB OO 
DFB <X.LF~1 
DFB <X. VT-1 
DFB <X. FF~1 
DFB  <X. CR-1 
DFB <X.SO-1 
DFB <X.SI-1 
DFB oO 
DFB <X. DC1-1 
DFB  <X. DC2-1 
DFB O 
DFB OO 
DFB <X. NAK~1 
DFB  <SCROLLDN-1 
DFB  <SCROLLUP-1 
DFB OO 
DFB  <X. EM-1 
DFB  <X. SUB-1 
DFB OO 
DFB  <X.FS-1 
DFB <X. GS-1 
DFB oO 
DFB  <X. US-1 
INCLUDE SUBS2 
* 
* EXECUTE LINEFEED: 
* 
XULF Eau) # 
INC OQURCV 
LDA = QURCV 
CMP = WNDBTM 
BCS X.LF2 
UMP X. LFRET 
xX. LF2 EQuU # 
LDY WNDBTM 
DEY 
STY OURCV 
* 
* SCROLL THE SCREEN: 
* 
SCROLLUP EQU) # 
TXA 
PHA 
LDX #1 
BNE SCROLL1 
SCROLLDN equ) #* 
TxA 
PHA 
LDx #0 
* 
SCROLL1 EQu # 
BIT RDSOVID 
BPL  SCROLL2 
LDA = WNDWDTH 
PHA 
LSR = WNDWDTH 
+ 
SCROLL2 equ) # 
JSR SCRLSUB 
BIT RDBOVID 
BPL =X. SCRLRET 
* 
* FOR 80, DO THE OTHER PAGE... 
* 
PHP 
SEI 
LDA -TXTPAGE2 
JSR = SCRLSUB 
LDA - TXTPAGE1 
PLP 
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180 
SI 
+DLE 
+DC1 
iDc2 
iDc3 
+DC4 
7 NAK 
i SYN 
+ ETB 
+ CAN 
EM 
+ SUB 
ESC 
iFS 
16S 
iRS 
+US 


+ BEL 
3BS 
HT 
iL 
iVT 
EE 
i+CR 
iso 
i SI 
i DLE 
+DC1 
+DCc2 
#DCS 
+DC4 
iNAK 
i+ SYN 
iETB 
i CAN 
+EM 
+ SUB 
4 ESC 
FS 
36S 
RS 
iUS 


i; BUMP CV 

;SEE IF OFF BOTTOM 
iOFF THE END? 

i =>YES 
i4=>NO, DONE 
i SET TO 


i THE BOTTOM 


i SAVE X 


i DIRECTION=UP 


i SAVE X 


i DIRECTION=DOWN 


i WHICH MODE? 

4=>40, DO WITH EXISTING WIDTH 
i TEMPORARILY SAVE 

i THE WIDTH AND 

i DIVIDE IT BY 2 


i+ SCROLL 40 COLS 
i+ ARE WE IN 80-MODE? 
7=>NO, DONE 


i; ENSURE IRQ INHIBITED 

i WHILE TXTPAGE2 MAPPED IN 
i SET PAGE2 

i SCROLL PAGE 2 

i; RESTORE PAGE1 

i RESTORE IRQ STATE NOW 






































































































































































































































CcCCcCc: 68 48 PLA 








CCCD: 85 21 49 STA WNDWDTH 

CCCF:DO 40 cD11 sO BNE xX. SCRLRET i=>DONE SCROLL8O (ALWAYS TAKEN) 
ccD1 Si * 

ccD1 52 # 40-COLUMN WINDOWED SCROLL.: 

ccD1: 53 * 

ccD1i: ccpi 54 SCRLSUB EQU * 

CCD1: BC F9 CF 55 LDY WNDTAB, X i GET WINDOW TOP/BOT 
CCD4:B9 00 00 56 LDA OY 

CCD7: EO 01 57 CPX #1 i SCROLLING UP? 
CCD9?: BO 02 ccDD 58 BcSs MSCRLO YES, NO PROBLEM 
CCDB:E9 00 Ss? SBC #0 -1 IF DOWN (SRC=BTM-1) 
CCDD CCDD 60 MSCRLO EQU * 

CCDD: 48 61 PHA 

CCDE: 20 54 CB 62 JSR BASCALCZ 

CCE1:AS 28 63 MSCRL1 LDA BASL 

CCE3: 85 2A 64 STA BAS2L 

CCES: AS 29 65 LDA BASH 

CCE7:85 2B 66 STA BAS2H 

CCE9: A4 21 67 LDY WNDWDTH 

CCEB: e8 68 DEY 

CCEC: 68 69 PLA 

CCED: 18 70 CLC 

CCEE: 7D FO CF 71 ADC PLUSMINUS1, X i; UP/DOWN 

CCFi:DS 22 72 CMP WNDTOP, X i AT THE END? 
CCF3:FO OD cDo2 73 BEG MSCRLRET 

CCFS: 48 74 PHA 

CCF6é:20 54 CB 75 JSR BASCALCZ 

CCF9:B1l 28 76 MSCRL2 LDA (BASL), Y 

CCFB:91 2A 77 STA (BAS2L), Y 

CCFD: 88 78 DEY 

CCFE: 10 F9 CCF? TF? BPL MSCRL2 

CDOO: 30 DF CCE1L 80 BMI MSCRL1 

cbo2: Bl * 

cbo2: cbo2 82 MSCRLRET EQU * 

CD02: EO 00 83 cPX #0 i SCROLLING DOWN? 
CDO4: DO OA cD10 B84 BNE MSCRLRTS ‘NO 

CDO6: 20 54 CB 85 JSR BASCALCZ 

cDo9?: cbo9 86 ONEMORE EQU * 

cDO?: Bi 28 87 LDA (BASL), Y 

CDOB: 91 24 8s STA (BAS2L), 

CDOD: 88 89 DEY 

CDOE: 10 F9 cbo9 90 BPL ONEMORE 

cDio: cDio 91 MSCRLRTS EQU * 

CD10: 60 92 RTS 

cpi1: 93 * 

cDi1: 94 * DONE WITH THE SCROLLING JAZZ: 

cDil: 95 * 

cDi1: cDil 96 X. SCRLRET EQU * 

CD11:B4 22 97 LDY WNDTOP, X i CLEAR TOP OR BOTTOM LINE 
CD12: BA 98 TXA i+ IF GETTING TOP, 
CD14:FO O1 CD17 ao: BEQ X.SCRLRET2 i DON’T DECREMENT! 
CD16: 88 100 DEY 

CD17: CD17 101 X.SCRLRET2 EQU * 

CD17: 98 102 TYA i; TEMP CV SETUP 
CD18: 20 54 CB 103 JSR BASCALCZ i COMPUTE BASE OF LINE TO CLEAR 
CD1B: 68 104 PLA i RESTORE 

CDIC: AA 105 TAX i Xx 

CD1D:20 1A CC 106 JSR X. SUB i; CLEAR BOTTOM LINE 
cD2o: 107 * 

cpd2o: cD20 108 X. LFRET EQU * 

CD20:4C 51 CB 109 JUMP BASCALC i RETURN VIA BASCALC (UGH!) 
cD23: 110 * 

cD23: 111 * EXECUTE CLR TO EOS: 

cD23: 112 * 

CD23: cD23 113 X. VT EQU * 

CD23: 20 48 CD 114 JSR X.6S +CLEAR TO EOL 

CD26: AD FB OS 115 LDA OURCY i SAVE CV 

CD29: 48 116 PHA 

CD2A: 10 06 cD32 117 BPL X. VTINEXT + DO NEXT LINE (ALWAYS TAKEN) 
cDac: cD2c 118 X. VTLOOP EQu * 

cbd2c:20 51 CB 119 JSR BASCALC + BASCALC IT 

CD2F:20 1A CC 120 JSR X. SUB i CLEAR LINE 

CD32: CD32 121 X. VTINEXT EQU * 

CD32: EE FB OS 122 INC OURCV + BUMP CV 

CD35: AD FB OS 123 LDA OURCYV 

CD38:C5 23 124 CMP WNDBTM i; OFF SCREEN? 

CD3A: 90 FO cp2c 125 BCC x. VTLOOP i+ =>NO, KEEP GOING 
CD3C: 68 126 PLA +; RESTORE 

CD3D: 8D FB OS 127 STA OURCYV 3 cv 

CD40: 10 DE cp20 128 BPL X. LFRET RETURN VIA SIMILAR CODE 
cD42: 129 # 

cD42: 130 * EXECUTE CLEAR: 

cD42: 131 * 

cD42: CD42 132 X. FF EQU * 

CD42: 20 OD CC 133 JSR xX. EM iHOME THE CURSOR 
CD45: 4C 23 CD 134 JUMP X.VT i RETURN VIA CLREOS (UGH!) 
cD48: 135 * 

cD4s: 136 * EXECUTE CLEAR TO EOL: 

cp48: 137 * 

cp4s: CD48 138 X.GS EQu * 
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CD48: AC 7B 05 139 LDY OURCH iGET CH 









CD4B:4C 54 CD 140 JMP x. 6S2 i CHECK FOR END FIRST! 
CD4E: CD4E 141 X. GSEOLZ EQU * i FER U HACKERS 

CD4E: A9 AO 142 LDA #° € 

CDSO: 20 F2 CE 143 JSR STORCHAR i STUFF IT 

CDS3: cB 144 INY 

cDS4: CD54 145 X.cs2 EQU * 

CDS4;C4 21 146 cPY WNDWDTH i STOP SOMETIME 
CDS56:90 Fé CD4E 147 BCC X. GSEOLZ i YASL DO MORE 

CD58: 60 148 RTS 

cDS9: 149 * 

CDS9: 150 * EXECUTE ‘40COL MODE’: 

CDS9: 151 * 

cDS9: CDS? 152 X.DC1 EQU * 

CDS9: A? 00 153 LDA #0 i ASSUME TEXTMODE 
CDSB:85 20 154 STA WNDLFT 

CDSD:2C 1A CO 155 BIT RDTEXT i ARE WE IN TEXT MODE? 
CD40: 30 02 CD64 156 BMI xX. DC1B i =>YES 

CD42: A9 14 157 LDA #20 i IF GR, SET SPLITSCREEN 
CD44: CD64 158 X.DC1iB EQu * 

CD6é4:85 22 159 STA WNDTOP. 

CD46: A9 18 160 LDA #24 

CD68: 85 23 161 STA WNDBTM 

CD6A: AP 28 162 LDA #40 

CD6C:85 21 163 STA WNDWDTH 

CD6E:2C 1F CO 164 BIT RDSOVID i WERE WE IN 80-MODE? 
CD71:10 03 CD76 145 BPL xX. DC1RTS i4=>NO, NO CVT NEEDED 
CD73: 20 DB cD 166 JSR SCRNSB4 i CVT 80-->40 

CD76: CD76 167 X.DCIRTS EQuU * 

CD76: 60 168 RTS 

CD77: 169 * 

CD77: 170 * EXECUTE ‘S0COL MODE‘: 

CD77: 171 * 

CD77: CD77 172 X.DCc2 EQU * 

CD77: 20 24 CB 173 JSR TESTCARD +18 CARD THERE? 

CD7A: DO 1& CD9A 174 BNE X. DC2RET >NOPE, FORGET IT 
CD7C: 20 9B CD 175 JSR FULL8O 3 SET FULL WINDOW 
CD7F:2C 1A CO 176 BIT RDTEXT i ARE WE IN TEXT MODE? 
CD82: 30 04 cpss 177 BMI xX. DC2B + =>YES 

CD84:A9 14 178 LDA #20 31F GR, SET SPLITSCREEN 
CD86:85 22 179 STA WNDTOP 

copes: CD88 180 X. DC2B EQU * 

cD88:2c 18 CO 181 BIT RDBOCOL i; REMEMBER PRIOR MODE 
CD8B: 30 OD CD9A 182 BMI X. DC2RET i+=>NO CVT NEEDED IF WAS 80 
CD8D:4C 32 CE 183 JMP SCRN48 iRET VIA CONVERT 40-->80 
cD90: 184 * 

cD90: 185 * EXECUTE ‘QUIT’: 

cbD90: 186 * 

CD90: CD90 187 X.NAK EQU * 

CD70: AD FB 04 188 LDA MODE i ONLY VALID IN BASIC 
CD93: 29 20 189 AND #M. PASCAL 

CD95:DO 03 cCD9IA 190 BNE X. NAKRET i IGNORE IF PASCAL 
CD97: 20 AA CD 191 JSR QUIT iGET SETUP TO QUIT 
CD9A: CD9A 192 X, NAKRET EQU * 

CD9A: CD9A 193 X. DC2RET EQu * 

CD9A: 60 194 RTS i; DONE; CALLER WON‘T RETURN 
CD9B: 199 esa ee are mem Ser mmr 

CD9B: 196 #* NAME : FULL80 

CD9B: 197 # FUNCTION: SET FULL 80COL WINDOW 

CD9B: 198 #* INPUT : NONE 

CD9B: 199 # OUTPUT : WINDOW PARAMETERS 

CD9B: 200 # VOLATILE: AC 

CD9B: oe 

CD9B: 202 * 

CD9B: CD9B 203 FULL&O EQU * 

CD9B: A? 00 204 LDA #0 

CD9D: 85 22 205 STA WNDTOP 

CD9F:85 20 206 STA WNDLFT 

CDA1:A9 50 207 LDA #80 

CDA3: 85 21 208 STA WNDWDTH 

CDAS: A? 18 209 LDA #24 

CDA7:85 23 210 STA WNDBTM 

CDA9: 60 211 RTS 

CDAA: Rig SSS hae See eee esa S SSeS se ee seas = 

CDAA: 213 * NAME : QUIT 

CDAA: 214 * FUNCTION: SETUP TO QUIT THE CARD 

CDAA: 215 * INPUT : NOTHING 

CDAA: 216 * OUTPUT : NOTHING 

CDAA: 217 * VOLATILE: ALL REGS 

CDAA: 218 * CALLS : X, FF, FULL80, BASCALC 

CDAA: 219 * SETKBD, SETVID 

CDAA: B20 see eeneror asses seers Ses ess 

CDAA: 221 * 

CDAA: CDAA 222 QUIT EQu * 

CDAA: AF 00 223 LDA #0 i+SET FULL 40-COL WINDOW 
cDAC:85 22 224 STA WNDTOP 

CDAE: 85 20 225 STA WNDLFT 

CDBO: A9 18 226 LDA #24 

CDB2:85 23 227 STA WNDBTM 

CDB4:A9 28 228 LDA #40 

CDB6:85 21 229 STA WNDWDTH 
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CDBS: 2c 1F 
CDBB: 10 03 
CDBD: 20 DB 


CDCO: A? 17 
CDC2: 8D FB 
cCDC5: 20 51 
CDC8: A? 00 
CDCA: 8D 7B 
CDCD: 8D OE 
CDDO: A9 FF 
CDD2: 8D FB 
CDDS: 20 93 


CE28:B1i 28 
CE2A:A4 2B 


CE2F:91 28 


CE32: AD FB 


co 
cDCcO 

cD 
cDco 


os 
cB 


os 
co 


04 


FE 


CDDB 
05 


oS 


co 
cE 
co 
cE 


CE13 


co 


CE32 
oS 


oS 


cB 
cE 


230 
231 

232 
233 
234 
235 
236 
237 
238 
239 
240 
241 

242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 








BIT RDBOVID i WHAT WIDTH? 
BPL. QuIT2 i+=>NO CVT NEEDED IF 40 
JSR SCRNS&4 i CONVERT 40-->80 
* 
qQuIT2 Equ * 
LDA #23 iVTAB TO THE 
STA OURCV i BOTTOM LINE 
JSR BASCALC 
LDA #0 i AND PLACE CURSOR 
STA OURCH i AT LEFT SIDE 
STA CLRALTCHAR iLCASE CHARS OFF 
LDA #SFF i DESTROY THE 
STA MODE i MODE BYTE 
JSR SETVID i PR#O 
JMP SETKBD i+ RETURN VIA IN#O (UGH!) 
* NAME : SCRNS&4 
#* FUNCTION: CONVERT 80VID-->40VID 
* INPUT : NONE 
#% OUTPUT : NONE 
* VOLATILE: ALL REGISTERS 
* NOTE : USES ‘BAS2H/L’ AS TEMPS 
* 
SCRN84 EqQu * 
LDA OURCV i SAVE CURRENT 
PHA 
LDA OURCH i SETTINGS 
PHA 
* 
LDA #23 
STA BAS2L ;USE AS A TEMP 
STA SETBOCOL 
SCR40 LDA BAS2L 
JSR BASCALCZ i BEGIN AT BOTTOM AND WORK UP 
JSR ATEFOR +DO THIS LINE 


DEC BAS2L 

BMI SCR40RET 

BIT RDTEXT 

BMI SCR40 

LDA Basel 

CMP #20 

BcS SCR40 
SCR40RET EQU * 

STA CLRSOCOL 

STA CLR8OVID 


=>DONE (HIT TOP) 

ARE WE IN MIDEXMODE? 
=>NO, DO ENTIRE SCREEN 

IF SO, ONLY DO BOTTOM 
FOUR (4) LINES OF WINDOW 


JMP SCRNRET js RETURN VIA SIMILAR CODE 
* 
ATEFOR EQU * 

PHP i;LOCK IRQ WHILE 


o 
m 
o 


SCREENHOLES ARE WRONG 
LDY #40 
STY BAS2H 
BIT TXTPAGE1 
ATEFORI JSR GET84 
BIT TXTPAGE2 
JSR GETa4 


LDY BAS2H i DONE? 
BNE ATEFOR1 7=>NO, DO WHOLE LINE 
PLP + RESTORE IRQ NOW 
RTS 
* 
GET84 DEC BAS2H 
LDA BAS2H 
LSR 4 
TAY 


LDA (BASL), Y 
Lby BAS2H 
BIT TXTPAGE1 


STA (BASL), Y 
RTS 
*® NAME SCRN48 
# FUNCTION: CONVERT 40VID-->80VID 
* INPUT NONE 
4% OUTPUT NONE 
* VOLATILE: ALL REGISTERS 
%* NOTE USES ‘BAS2H/L’ AS TEMPS 





SCRN48 EQU * 
LDA OURCV i SAVE CV 
PHA 
LDA OURCH i AND CH 
PHA 
* 
LDA #23 
STA BAS2L iUSE AS A TEMP 
SCR80 LDA BaS2L 
JSR BASCALCZ i BEGIN AT BOTTOM AND WORK UP 
JSR FORATE iDO THIS LINE 


DEC BAS2L 


Monitor ROM Listings 


CE48: 30 OB 
CE4A: 2C 1A 
CE4D: 30 EF 
CE4F:AS 24 
CES1:C9 14 
CES3: BO E9 


CESS: 8D OD 


CESS: 68 
CES9: 8D 7B 
CESC: 68 
CESD: 8D FB 
CE60:4C 51 


CE63: 08 

CE64: 78 

CE65: AO 00 
CE67: 84 2B 
CE49:8C O1 
CE4C:2C 54 
CE4F:B1 28 
CE71:2C 55 
CE74:20 A3 
CE77:2C 54 
CE7A: Bi 28 
CE7C:20 AZ 
CE7F:CO 28 
CE81:90 EC 


CE83:20 91 
CE86:2C 55 
CE89: 20 971 
CE8C:2c 54 


CE90: 60 


CE91:A0 14 
CE93: A9 AO 
CE9S: 24 32 
CE97: 30 02 
CE99: 29 7F 


CESB: 91 28 


CE9E:CO 28 
CEAO: DO F9 
CEA2: 60 


CEA3: 48 
CEA4: 98 
CEAS: 4A 
CEA6: AS 
CEA7: 68 
CEA8: 971 28 
CEAA:Eé 2B 
CEAC: A4 2B 
CEAE: 60 


CEAF: 8D 7B 
CEB2:85 24 
CEB4: 8D 7B 
CEB7:2C 1F 
CEBA: 10 1D 


co 


oS 


os 
cB 


co 
co 


co 
cE 
co 


cE 


CE 
co 
cE 
co 


os 


04 
co 


04 


oS 


cESS 
CESE 


CESE 
cESS 


cess 


CE63 


CE6F 


CEL 


CE9B 


CE9B 


CE9B 


CEAF 


CED? 


CED? 


322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 





BMI SCREORET i+™=>DONE (HIT TOP) 

BIT RDTEXT + ARE WE IN MIXEDMODE? 

BMI SCREO iNO, DO FULL SCREEN 

LDA BAS2L +IF SO, ONLY DO BOTTOM 
CMP #20 + FOUR (4) LINES OF WINDOW 
BCS SCREO 


* 


SCREORET Eau * 
STA SETBOVID i DISPLAY IN 80-MODE 
SCRNRET equ #* i USED BY SCRNS4 
PLA i RESTORE 
STA OURCH i CH AND 
PLA + CY 
STA OURCV 
JMP BASCALC + RETURN VIA BASCALC (UGH!) 
* 
* 
FORATE EGU) * 
PHP +DON‘T ALLOW IRG WHILE 
SEI i+ SCREENHOLES ARE WRONG 
LDY #0 
STY BAS2H 
STY SETSOCOL 
BIT TXTPAGE1 
FORATE1 LDA (BASL), Y 
BIT TXTPAGE2 
JSR D048 
BIT TXTPAGE1 
LDA (BASL),Y 
JSR Do48 
cPY #40 
BCC FORATE1 
* 
JSR CLRHALF i CLEAR RIGHT HALF 
BIT TXTPAGE2 i OF BOTH PAGES 
JSR CLRHALF 
BIT TXTPAGEL 
FL ;OK TO ALLOW IRG@ NOW 
RTS 
* 
CLRHALF EQuU * 
LDY #20 
LDA #! - 
BIT INVFLG i WHICH MODE? 
BMI CLRHALF2 i =>NORMAL 
AND #S7F i INVERSE 
CLRHALF2 EQU * 
STA (BASL), Y i+ STUFF THE BLANK 
INY 
cPY #40 
BNE CLRHALF2 
RTS 
* 
DO48s PHA 
TYA 
LSR A 
TAY 
PLA 
STA (BASL). Y 
INC BAS2H 
LDY BAS2H 
RTS 
INCLUDE SUBS3 
* NAME : SETCH 
* FUNCTION: SET OURCH AND CH 
* INPUT : AC=CH VALUE 
#* OUTPUT : OURCH, CH MOD 40 
#* VOLATILE: NOTHING 
* CALLS : NOTHING 
* 
SETCH EQU * 
STA OURCH i+ STUFF QURCH 
STA CH i STUFF IN CASE WE’RE 40 MODE 
STA OLDCH 
BIT RDSOVID + IN 80-MODE? 
BPL SETCHRTS #=>NO, DONE 
* 
#* IF WE’RE NEAR THE END OF OUR 
* §80COL LINE, MOVE CH UP. IF NOT, 
* LEAVE CH PINNED AT ZERO... 
# 
LDA #0 i+PIN CH AT ZERO 
STA CH 
STA OLDCH i+ REMEMBER THE SETTING 
LDA WNDWDTH iCHECK IF NEAR THE END 
SEC 
SBC OURCH ;+GET ABS CH 
CMP #8 iNEAR THE END? 
BCS SETCHRTS + =>NOPE 
STA CH i YES, MOVE CH UP NEAR RIGHT 


80-Column Firmware Listing 








CFOL 


aa 
:38 
:ES 
eb 


: AD 


: Be 


24 


7B 04 


7B O05 


7B OS 
O1 CF 


00 CF 
06 CF 


32 
02 


OO CF 


CED? 


CEDD 


CEF2 


CEF9 


CEF9 


06 CF 


CFO2:20 06 CF 


CFOS 


760 


CFO6: 
CFO6: 
CFO6: 
CFO6: 
CFO6: 
CFO6: 
CFO6: 
CFOS: 
CFO6: 
CFO6: 
CFO6: 
CFO6: 
CFO6: 


CFO6: 
CFOS: 


84 
48 


CFO9: 


CFO9: 
CFOC: 


AD 
10 


CFOE: 
CFOE: 
CFOE: 


CFOE: 
CF10: 
CFil: 
CFi2: 


AS 
4A 
As 
7O 


CF14: 
CF14: 


1F 


1F CO 
32 


1F 


16 


CFOL 


CFO6 


CF40 


CF2A 


100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111i 
112 
113 
114 
115 
116 
117 
118 
11? 
120 
121 

















SEC 
SBC CH 
STA CH i+ BASIC WILL SEE THAT NOW 
STA OLDCH i; REMEMBER THE SETTING 
* 
SETCHRTS EQU * 
LDA OURCH i RESTORE AC 
RTS 
* NAME INVERT 
%* FUNCTION: INVERT CHAR AT CH/CV 
# INPUT NOTHING 
% OUTPUT : CHAR AT CH/CV INVERTED 
* VOLATILE: NOTHING 
* CALLS : PICK, STORCHAR 
* 
INVER1 EQu * 
PHA i SAVE AC 
TYA i AND Y 
PHA 
LDY OURCH i GET CH 
JSR PICK i+GET CHARACTER 
EOR #$80 +FLIP INVERSE/NORMAL 
BIT SEV sPUT DIRECTLY BACK 
JSR SCREENIT i; ONTO SCREEN 
PLA i RESTORE Y 
TAY i AND AC 
PLA 
RTS 
#* NAME : STORCHAR 
# FUNCTION: STORE A CHAR ON SCREEN 
* INPUT : AC=CHAR 
* Y=CH POSITION 
* OUTPUT : CHAR ON SCREEN 
# VOLATILE: NOTHING 
#* CALLS : SCREENIT 
* 
STORCHAR EQU * 
PHA i SAVE AC 
BIT INVFLG iNORMAL OR INVERSE? 
BMI STOR2 >NORMAL_ 
EOR #$B0 i INVERSE 
STOR2 EQU * 
BIT SEV iV SET FOR STORE 
JSR SCREENIT i=2DQ IT! 
PLA i RESTORE AC 
SEV RTS 
# NAME : PICK 
# FUNCTION: GET A CHAR FROM SCREEN 
# INPUT : Y=CH POSITION 
# QUTPUT AC=CHARACTER 
* VOLATILE: NOTHING 
* CALLS : SCREENIT 
* 
PICK EQU * 
cLV iV CLEAR FOR PICK 
JSR SCREENIT +DO IT! 
RTS 
* NAME : SCREENIT 
* FUNCTION: STORE OR PICK CHAR 
% INPUT : VY CLR FOR PICK 
* : VY SET FOR STORE 
* : AC=CHAR FOR STORE 
* :  Y=CH POSITION 
# OUTPUT : AC=CHAR (PICK) 
* VOLATILE: NOTHING 
* CALLS NOTHING 
* 
SCREENIT EQU * 
STY YSAV1 i SAVE Y 
PHA i SAVE CHARACTER IF STORING 
# AVOID CHANGING VFLAG VIA BIT! 
LDA RDBOVID i WHAT DISPLAY MODE? 
BPL SCRN40 4 =>40-COL MODE 
* 
* 80-COLUMN MODE: 
* 
LDA YSAV1 i+GET CURSOR HORIZ 
LSR A i DIVIDE BY TWO FOR PAGE 
TAY iCH TO YREG 
BYVS STORBO i =>GONNA STORE THE CHAR 


* 
* BO-COL PICK: 


Monitor ROM Listings 




















































































































CF14 122 * 

CF14:08 123 PHP ;LOCK INTERRUPTS WHILE 
CF15:78 124 SEI i SCREENHOLES ARE WRONG 
CF16: AD 55 CO 125 LDA - TXTPAGE2 i ASSUME PAGE 2 (EVENS) 
CF19:90 03 CFIE 126 BCC SCRN2 i=>IT IS 

CF1B: AD 54 CO 127 LDA TXTPAGE1 i ODDS GO TO PAGE1 

CFIE: CF1E 128 SCRN2 EQU # 

CF1E:B1i 28 129 LDA (BASL), Y i PICK THE CHARACTER 
CF20: AS 130 TAY i HOLD CHAR TEMPORARILY 
CF21:AD 54 CO 131 LDA -TXTPAGE1 i RESTORE PAGE1 

CF24: 28 132 PLP i AND ALLOW IRQ@ AGAIN 
CF25: 68 133 PLA i TRASH SAVED AC 

CF26: 98 134 TYA 

CF27: 48 135 PHA iMAKE CHAR GET RESTORED TO AC 
CF28:50 24 CF4E 136 BYC STPKEXIT i=>DONE (ALWAYS TAKEN) 
CF2A: 137 # 

CF2A: CF2A 138 STORSO equ # 

CF2A: 68 139 PLA i RESTORE CHARACTER 
CF2B: 48 140 PHA i (LEAVE ON STACK) 

cF2c: 08 141 PHP ;LOCK INTERRUPTS WHILE 
CF2D: 78 142 SEI i THE SCREENHOLES ARE WRONG 
CF2E: 48 143 PHA jHOLD THE CHAR TEMPORARILY 
CF2F: AD 55 CO 144 LDA TXTPAGE2 i ASSUME PAGE2 (EVENS) 
CF32:90 03 CF37_ 145 BCC SCRN3 ;=>1T IS 

CF34: AD 54 CO 146 LDA TXTPAGE1 i ODDS GO TO PAGE1 

CF37: CF37 147 SCRN3 equ # 

CF37: 68 148 PLA iGET CHAR TO BE STORED 
CF38: 91 28 149 STA (BASL), Y i STUFF ONTO SCREEN 
CF3A: AD 54 CO 150 LDA TXTPAGE1 i RESTORE PAGE1 

CF3D: 28 151 PLP i AND ALLOW IRQ AGAIN 
CF3E:70 OE CF4E 152 BVS  STPKEXIT ;=>DONE (ALWAYS TAKEN) 
CF40: 153 * 

cF40: 154 # 40-COLUMN MODE: 

CF40: 155 # 

CF40: CF40 156 SCRN40 EQU * 

CF40:A4 1F 157 LDY YSAV1 iGET CURSOR HORIZ 
CF42:70 06 CF4A 158 BVS  STOR40 ;=>STORE IT 

CF44: 68 159 PLA i TRASH SAVED CHAR 
CF45:Bi 28 160 LDA (BASL), Y i PICK THE CHARACTER 
CF47: 48 161 PHA i SAVE CHAR FOR RESTORE 
CF48: 50 04 CF4E 142 BYC STPKEXIT i DONE (ALWAYS TAKEN) 
CF4A: 163 * 

CF4A: CF4A 164 STOR40 EQU * 

CF4A: 68 165 PLA i GET THE CHARACTER 
CF4B: 48 166 PHA i (LEAVE ON STACK) 
CF4C:91 28 167 STA (BASL), Y i STUFF ONTO SCREEN 
CF4E: 168 # 

CF4E: CF4E 169 STPKEXIT EQU * 

CF4E: 68 170 i RESTORE AC 

CF4F:A4 1F 171 YSAV1 i RESTORE Y 

CFS51: 60 172 

CF52: 173 ---------------------------------------- 

CFS2: 174 # NAME : ESCON 

cFS2: 175 * FUNCTION: TURN ON ‘ESCAPE’ CURSOR 

cFS2 176 * INPUT NONE 

crs2 177 * OUTPUT “CHAR ‘“=ORIGINAL CHAR 

CFS2: 178 * VOLATELE: NOTHING 

cF52: 179 * CALLS PICK, STORCHAR 

CFS2: 180 ---------------------------------------- 

cFS2: 181 # 

CFS2: CF52 182 ESCON equ * 

CFS2: 48 183 PHA i SAVE AC 

CFS3: 98 184 TYA i AND Y 

cFS4: 48 185 PHA 

CFSS: AC 7B 05 186 LDY OURCH iGET CH 

CFS58:20 01 CF 187 JSR PICK iGET ORIGINAL CHARACTER 
CFSB: 8D 7B 06 ise STA CHAR ; AND REMEMBER FOR ESCOFF 
CFSE: 29 80 189 AND #$80 i SAVE NORMAL/ INVERSE BIT 
CF40: 49 AB 190 EOR #$AB iMAKE IT AN INVERSE ‘+/ 
CF42:4C 6E CF 191 JMP = ESCRET + RETURN VIA SIMILAR CODE 
Cres: 192 

CF45: 193 ESCOFF 

CF6S: 194 TURN OFF ‘ESCAPE’ CURSOR 

Cres 195 ‘CHAR “=ORIGINAL CHAR 

CFé6é5 196 NONE 

CFé5: 197 NOTHING 

Cras: 198 STORCHAR 

CFés: 199 

CF65 200 

Cres CF65 201 ESCOFF equ # 

CF45: 48 202 PHA i SAVE AC 

CF46: 98 203 TYA i AND Y 

CF47: 48 204 PHA 

CF48: AC 7B 05 205 LDY OURCH iGET CH 

CF6B: AD 7B 06 206 LDA CHAR iGET ORIGINAL CHARACTER 
CF4E. CF6E 207 ESCRET EQu + USED BY ESCON 

CF4E: 2C 00 CF 208 BIT SEV i AND PUT IT BACK 
CF71:20 06 CF 209 JSR = SCREENIT i EXACTLY AS IT WAS 
CF74: 68 210 PLA i RESTORE Y 

CF75: AS 211 TAY 

CF76: 68 212 PLA i AND AC 
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CF77: 60 213 RTS 









CF7B: BiG | CGS Se Se a ee Se. 

CF78: 215 * NAME : COPYROM 

CF78: 216 * FUNCTION: COPY F8 ROM TO LCARD 

CF78: 217 * INPUT NOTHING 

CF78: 218 * VOLATILE: X,Y 

CF78: CALLS H 

CF78: 

CF78: 

CF78: CF78 222 COPYROM E@U * 

CF78: 48 223 PHA i SAVE AC 

CF79: 08 224 PHP +ENSURE IRG INHIBITED 
CF7A: 78 225 SEI i WHILE COPYING ROM 
CF7B: 226 * 

CF7B: AD 11 CO 227 LDA RDLCBNK2 i GET BANK2 

CF7E: 48 228 PHA 

CF7F: 229 * 

CF7F:AE 12 CO 230 LDXx RDLCRAM i AND RAM FLAGS 
CF82:AD 81 CO 231 LDA $cOsi i SET READ-ROM 
CF85:AD 81 CO 232 LDA $CO81 i WRITE-RAM MODE 
cFss: 233 * 

CF8B: AO 0O 234 LDY #0 

CFBA: AP FB 235 LDA #9F8 

CF8C:85 37 236 STA CSWH i USE HOOK FOR MOVE 
CFSE: AS 36 237 LDA CSWL i PRESERVE LO BYTE 
CF90O: 48 238 PHA 

CF91:A9 OO 239 LDA #0 

CF93: 85 36 240 STA CSWL 

CF9S: CF95 241 COPYROM2 EQU * i COPY ONLY PATCHED PAGES 
CF95:B1 36 242 LDA (CSWL), Y i MOVE THE ROM 
CF97:91 36 243 STA (CSWL),Y 

CF99: CB 244 INY 

CF9A: DO F9 CF95 245 BNE COPYROM2 

CF9C:E6 37 246 INC CSWH 

CF9E: DO FS CF95 247 BNE cOPYROM2 

CFAO: 248 * 

CFAO: 68 249 PLA i RESTORE THE 

CFAI: 85 36 250 STA CSWL i HOOK 

CFA3: A? C3 251 LDA #<CNOO 

CFAS: 85 37 252 STA CSWH 

CFA7: 253 * 

CFA7: 68 254 PLA i WHICH LC BANK? 
CFAS: 10 OF CFB? 255 BPL LCB1 i =>BANK1 

CFAA: 8A 256 TXA i RAM OR ROM READ? 
CFAB: 10 06 CFB3 257 BPL LCB2ROM 3 =>ROM 

CFAD: AD 80 CO 258 LDA $CO80 i BANK2, RAM 

CFBO: 4C C5 CF 259 JMP COPYRET 

CFB3:AD 81 CO 260 LCB2ROM LDA $Ccosi 3 BANK2, ROM 

CFB6:4C C5 CF 261 JMP COPYRET 

CFB9: BA 262 LCB1 TXA ;RAM OR ROM READ? 
CFBA: 10 06 CFC2 263 BPL LCB1ROM 4 =>ROM 

CFBC: AD 88 CO 264 LDA scoss i BANK1, RAM 

CFBF:4C CS CF 265 JMP COPYRET 

CFC2:AD 89 CO 266 LCB1ROM LDA $CO89 + BANK1, ROM 

CFCS: 267 * 

CFCS CFCS 268 COPYRET EQU * 

CFCS: 28 269 PLP i RESTORE IRQ STATE NOW 
CFCé: 68 270 PLA i AND AC 

CFC7: 60 271 RTS 

CFCe: 2 a Se emeeeianeeeion 

CFCe: 273 * NAME : PSETUP 

CFCB: 274 * FUNCTION: SETUP ZP FOR PASCAL 

CFC8: 275 * INPUT : NONE 

CFCS: 276 * OUTPUT : NONE 

CFCS: 277 * VOLATILE: AC 

CFCB: 278 * CALLS > NOTHING 

CFC8: 5 a 

CFC8: 280 * 

CFC8: CFCB 281 PSETUP EQU * 

CFC8: AD FB 04 282 LDA MODE i TRANSPARENT MODE? 
CFCB: 29 O1 2683 AND #M. TRANS 

CFCD: DO 03 CFD2 284 BNE PSETUP2 i=>YES, TRUST WINDOW 
CFCF: 20 9B CD 285 JSR FULL80 i SET FULL S8OCOL WINDOW 
CFD2: 286 * 

CFDe2: CFD2 287 PSETUP2 EQuU * 

CFD2: A9 FF 288 LDA #255 

CFD4:85 32 289 STA INVFLG i; ASSUME NORMAL MODE 
CFD6: 290 # 

CFD6: AD FB 04 291 LDA MODE 

CFD9: 29 04 292 AND #M. VMODE 

CFDB: FO 02 CFDF 293 BEG PSETUPRET i =>1T’S NORMAL 
CFDD: 46 32 294 LSR INVFLG i MAKE IT INVERSE 
CFDF: 295 * 

CFDF: CFDF 296 PSETUPRET EQU * 

CFDF: AD 7B 07 297 LDA OLDBASL i+ SET UP BASE ADDRESS 
CFE2:85 28 298 STA BASL 

CFE4: AD FB 07 299 LDA OLDBASH 

CFE7:85 29 300 STA BASH 

CFE9: 60 301 RTS 

CFEA: a aa 

CFEA: 303 * NOTE: ENTRIES 6-7 OF THESE TABLES 
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CFEA: 
CFEA: 
CFEA: 
CFEA: 
CFEB: 
CFEC: 
CFED: 
CFEE: 
CFEF: 
CFFO: 
CFF2: 
CFF3: 
CFF3: 
CFF4: 
CFFS: 
CFF6: 
CFF7: 
CFF8: 
CFF9?: 
CFFB: 
CFFC: 
CFFD 


42 
4c 
7c 
9B 
e9 
FF 
89 


EO 
EC 
cc 
D2 
pe 
Eo? 
23 
E6 
00 


o1 


22 


CFFD 


304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 

15 


#* ARE NOT USED. THUS THERE ARE 


. TABLE 


PLUSMINUS1 


* 
B. TABLE 


WNDTAB 


ZZEND 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 


DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
EQu 


SOME OTHER VALUES STUFFED IN. 


>F. CLREOP—-1 

>F. HOME-1 

>F. SCROLL-1 

>F. CLREOL-1 

>F. CLEOLZ-1 

>B.RESET-1 iUSE SAME RESET 
“11 +SCROLL USES THIS 
>F. SETWND-1 


>B. CLREOP-1 

>B. HOME-1 

>B. SCROLL-1 

>B. CLREOL~-1 

>B. CLEOLZ~-1 

>B.RESET-1 ;USE SAME RESET 
WNDBTM. WNDTOP + SCROLL USES THIS 
>B. SETWND-1 

° i AVOID CFFF PIPELINING 
* 
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80-Column Symbol Table, 
Sorted by Symbol 


3D A1H 
43 A4H 
CAO2 B. CANLIT 
B. CLREOP 
B. FIXCHR 
?C100 B. FUNC 
B. HOME 
B. KEYIN2 
B. RESETX 
C1E7 B. SETWND 
2A BAS2L 
CB97 BASCLCX 
C803 BASICINIT 
28 BASL 
C816 BINIT1 
c252 BLAST 
?CBE2 BS40 
BSDONE 
C87E CB8B3 
24 CH 
C12D CLEOP1 
CE9B CLRHALF2 
CF9S5 COPYROM2 
CC78 CTLADH 
CBAE CTLGO 
DIAGS 
c935 ESC3 
C960 ESCNONE 
C284 ESCOUT 
C963 ESCSPEC3 
C17D F. CLREOL 
F.RET1 
CFEA F. TABLE 
CE6F FORATE1 


C37E MOVESTRT 
CCF9 MSCRL2 
cicS Nol 
077B OLDBASL 
OSFB OURCV 
PINIT2 
CABA PREADRET2 
C99E PSTATUS2 
?CAPE PWRITE2 
CBOF PWRITERET 
c018 RDSOCOL 
RDLCBNK2 
C013 RDRAMRD 
C264 RESETRET 
CDEA SCR40 
€153 SCRL1 
CF1E SCRN2 
SCRNS4 
CCAA SCROLLDN 
COOF SETALTCHAR 
CED? SETCHRTS 
coos SETSTDZP 
C030 SPKR 
CEF9 STOR2 
CF4E STPKEXIT 
CB24 TESTCARD 
CBCF WAIT 

20 WNDLFT 
COOS WRCARDRAM 
C2F6 X. CLEOL2 


80-Column Symbol Table, Sorted by Symbol 


ALL 

A4aL 

B. CHKCAN 
B. ESCFIX 
B. FLIP 
B. FUNC1 
B. INPUT 
B. NOPICK 
B. SCROLL 
B. TABLE 
BASCALCZ 
BASH 
BASICIN 
BELL2 
BINIT2 
BOUT 
BSCLC1A 
coi 

C8B4 
CHAR 
CLRSOCOL 
CLRHALF 
cOPYROM 
CTLADL 
CTLRET 
DO48 
ESCAPING 
ESCNUM 
ESCRET 
ESCTAB 
F. CLREOP 
F. RETURN 
F. VTAB 
FORATE 
GETK2 
GOBACK 
GPX 

IK2 
IORTS 
JPSTAT 
KBDWAIT 
KEYDLY 
LCB1iROM 
M. GOXY 
M. PASCAL. 
MOVEC2M 
MOVE 
MSCRLRET 
NOWAIT 
OLDCH 
PICK 
PINIT 
PSETUP2 
PSTATUS 
PWRITES 
PWWRAP. 
RDSOVID 
RDLCRAM 
RDRAMWRT 
RNDH 
SCRBO 
SCRL2 
SCRN3 
SCRNRET 
SCROLLUP 
SETALTZP 
SETINTCXROM 
SETVID 
STARTXY 
STOR40 
STUFF INV 
TESTFAIL 
waAIT2 
WNDTAB 
WRMAINRAM 
X. CLEOLZ 


A2H 
ATEFOR1I 
B. CLEOLZ 
B. ESCFIX2 
B. FUNCO 
B. FUNCNK 
B. INRET 
B. OLDFUNC 
B. SETWND2 
B. VECTOR 
BASCALC 
BASICENT 
BASICINT 
BFUNCPG 
BINPUT 
BPNCTL 
BSCLC1 
co3 
CB8BASIC 
CLEARIT 
CLRSOVID 
CcNOoO 
CSWH 
CTLCHAR 


ESCSPEC 
F. BASCALC 
F. GORET 
F. SCROLL 
F. VTABZ 
FULL80 
GETKEY 
GOODFS 
HANG 

IK3 
JBASINIT 
JPWRITE 
KDRET 
KSWH 
LCB2ROM 
M. IRQ 

M. TRANS 
MOVELOOP 
MSCRLO 
MSCRLRTS 
NXTA1L 
ONEMORE 
PIGOOD 
PLUSMINUS1 
PSETUP 
PSTATUS3 
PWRITE 
QuIT2 
RDCARDRAM 
RDMAINRAM 
RDTEXT 
RNDL. 
SCRSORET 
SCRL3 
SCRN40 
SCROLL1 
SETBOCOL 
SETC8 
SETKBD 
SEV 
sTay2 
STORSO 
TEMP 1 
TXTPAGE1 
WAIT3 
WNDTOP 
X. BELL 
X. CRRET 


42 
ATEFOR 
B. CLREOL 
B. ESCFIX3 
B. FUNCNE 
B. GETCH 
B. KEYIN 
B, RESET 
B. SETWNDX 
BAS2H 
BASCLC3 
BASICENT2 
BASICOUT 
BINITIA 
BIORET 
BPRINT 
BSCLC2 
ceB2 
CB8SLOT 
CLEOL2e 
CLRALTCHAR 
COPYRET 
CSWL 
CTLCHARX 
cv 

Esc2 
ESCIN 
ESCON 
ESCSPEC2 
F. CLEOLZ 
F. HOME 

F. SETWND 
FEVERSION 
FUNCEXIT 
GETPRIOR 
GORETN 
TAL 
INVERT 
JPINIT 
KBDSTRB 
KDRETN 
KSWL 

M. BINPUT 
M.LIT 

M. VMODE 
MOVERET 
MSCRL1 
NOESC 
OLDBASH 
OURCH 
PINIT1.0 
PREAD 
PSETUPRET 
PSTATUS4 
PWRITE4 
QUIT 
RDKEY 
RDPAGE2 
RDVBLBAR 
SCR40RET 
SCREENIT 
SCRLSUB 
SCRN48 
SCROLL2 
SETSBOVID 
SETCH 
SETSLOTC3ROM 
SNIFFIR@ 
STAY8O 
STORCHAR 
TEST 
TXTPAGE2 
WNDBTM 
WNDWDTH 
xX. BS 

xX. CR 

















CBFD X. CRPAS CD64 X. DC1B CD76 X. DC1IRTS CDS9 xX. DC1 
CD88 xX. DC2B CD9A X. DC2RET CD77 xX. DC2 ccOD X. EM 

CD42 X. FF CC33 X. FSRET CC26 X.FS CD48 X.GS 

CD54 X.G6s2 CD4E X. GSEOLZ ccoi XK. LF CC9E X.LF2 
CD20 X. LFRET CD90 X. NAK CD9A X. NAKRET CD11 X. SCRLRET 
CD17 X. SCRLRET2 ccse2 x.sI cc49 x.so ?CC1D X. SUB8O 
CC1F X. SUBLP CC1A X. SUB CC34 X.US cc40 x.US1 
cc45 X. uSs2 cC48 X. USRET CD23 X. VT cpD2c x. VTLOOP 
CD32 X. VINEXT O6FB XCOORD C3BO XFER C3CD XFERAZP 
C3C5 XFERC2M C3DC XFERSZP 1F YSAV1 ? O02 ZSPAREC2 


?CFFD ZZEND 

## SUCCESSFUL ASSEMBLY := NO ERRORS 

## ASSEMBLER CREATED ON OS-JAN-82 000004 
## TOTAL LINES ASSEMBLED 2419 

## FREE SPACE PAGE COUNT 49 


2 EQUATES 

3  BFUNC 

4 C3SPACE 

S C8SPACE 

6 BPRINT 

7 BINPUT 

8 PINIT 

9 PREAD 
10) PWRITE 
11 SUBS1 
12 suBs2 
13 SUBS3 


Monitor ROM Listings 



































80-Column Symbol Table, 


Sorted by Address 


oO TEST 
ZSPAREC2 


OLDBASL 
KBD 
WRMAINRAM 
SETALTZP 
CLRALTCHAR 
RDLCRAM 
RDVBLBAR 
SPKR 
BFUNCPG 
F. CLREOP 
SCRL1 
CLEOL2 

B. FUNCO 
B. CLEOLZ 
B. HOME 

B. SETWNDX 
BLAST 

B. ESCFIX2 
ESCOUT 
KEYDLY 


BASICENT 
JPREAD 
MOVEC2M 
col 
XFERC2M 
BASICINIT 
BINIT2 
C8B3 
KBDWAIT 
BINPUT 
Esc2 
ESCNONE 
PSTATUS 
NOESC 

B. CANLIT 
GPX 
PIGOOD 
PWRITE2 
PWRITE4 
GETK2 
TESTFAIL 
BSCLC1A 
CTLCHAR 
CTLXFER 
WAIT2 
BSDONE 
x. EM 
X.FS 

xX. uS2 
STUFF INV 
X.LF2 
SCROLL2 
MSCRL2 
CD11 X. SCRLRET 
cD2c xX. VTLOOP 
CD4E X. GSEOLZ 
CD76 X. DCIRTS 
CD9A X. NAKRET 
QUIT2 
ATEFOR 
SCRBO 
FORATE1 


80-Column Symbol Table, Sorted by Address 


M. TRANS 
™. VMODE 
ESCNUM 
WNDWDTH 
cv 

BAS2H 
KSWL 

AaL 

ASH 
TEMP1 
OURCV 
CB8SLOT 
SETSOCOL 
WRCARDRAM 
SETSLOTC3ROM 
SETALTCHAR 
RDRAMRD 
RDTEXT 
TXTPAGE1 
B. FUNCNK 
CLEOP1 
SCRL2 

F. SETWND 
NOI 

B. CLREOP 
B. VECTOR 
B. SETWND2 
DIAGS 

B. ESCFIX3 
B. KEYIN 
IK1 
KDRETN 
F.RET1L 
BASICINT 
BASICENT2 
JPWRITE 
MOVESTRT 
co3 
XFERAZP 
HANG 
CLEARIT 
ce8B4 
NOWAIT 
B. INPUT 
ESCc3 
ESCSPEC3 
PSTATUS2 
B. NOPICK 
B. FIXCHR 
PINIT1.0 
PREAD 
GETY 
PWWRAP. 
TESTCARD 
BASCALC 
BSCLC2 
CTLCHARX 
xX. BELL 
WAIT3 

xX. CR 

X. SUB 

X. FSRET 
X. USRET 
CTLADL 
SCROLLUP 
SCRLSUB 
MSCRLRET 
X. SCRLRET2 
X. VTNEXT 
xX. 6S2 

x. DC2 

X. DC2RET 
SCRN8&4 
ATEFOR1 
SCRSORET 
CLRHALF 


M. IRQ 
GOODF8 
YSAV1 
WNDTOP 
BASL 
INVFLG 
KSWH 

A2H 

RNDL 
OLDCH 
CHAR 
OLDBASH 
RDMAINRAM 
SETINTCXROM 
CLRSOVID 
KBDSTRB 
RDRAMWRT 
RDPAGE2 
TXTPAGE2 
B. FUNCNE 
F. HOME 
SCRL3 

F. CLEOLZ 
B. SCROLL 
B. SETWND 
B. GETCH 
GOBACK 
RESETRET 
GORETN 
B. KEYIN2 
IK2 
KDRETY 
X. CLEOLZ 
BASICIN 
JBASINIT 
JPSTAT 
MOVELOOP 
MOVERET 
XFERSZP 
BINIT1 
C8BASIC 
BOUT 
BPNCTL 
ESCAP ING 
ESCSPEC 
ESCTAB 
PSTATUS3 
B. CHACAN 
B. INRET 
PINIT 
PREADRET2 
PWRITES 
PWRITERET 
STAY2 
BASCALCZ 
BASCLC3 
CTLGO 
BELL2 
X.BS 

xX. CRPAS 
X. SUBBO 
xX. US 

x. SO 
CTLADH 
SCROLLDN 
MSCRLO 
ONEMORE 
X. LFRET 
X. FF 

x. DC1 

xX. DC2B 
FULL8O 
SCR40 
GETS4 
SCRNRET 
CLRHALF2 


M. PAS1.0 
M. GOXY 
M. PASCAL 
WNDBTM 
BASH 
CSWL 

A1L 

M. BINPUT 
RNDH 
MODE 
XCOORD 
CLRBOCOL 
RDCARDRAM 
SETSTDZP 
SETBOVID 
RDLCBNK2 
RDSOCOL 
RD8OVID 
B. FUNC 
B. OLDFUNC 
F. SCROLL 
F. CLREOL 
F. GORET 
B. CLREOL 
B. RESET 
B. FUNC1 
B. RESETX 
B. ESCFIX 
ESCIN 
GOTKEY 
TK2A 
KDRET 

X. CLEOL2 
BASICOUT 
JPINIT 
MOVE 
NXTAL 
XFER 
SETCB 
BINIT1A 
CeB2 
BPRINT 
BIORET 
Esc1 
ESCSPEC2 
ESCCHAR 
PSTATUS4 
B. FLIP 
GETPRIOR 
PINIT2 
PWRITE 
STARTXY 
GETKEY 
STAY8O 
BSCLC1 
BASCLCX 
CTLRET 
WAIT 
BS40 

X. CRRET 
xX. SUBLP 
xX. US1 

x. SI 

x LF 
SCROLL1 
MSCRL1 
MSCRLRTS 
X.VT 
x.eS 

xX. DC1B 
xX. NAK 
QUIT 
SCR40RET 
SCRN48 
FORATE 
po48 








CEAF 
CEF? 
CFIE 
CF4A 
CF6E 
CFB? 
CFD2 
CFF3 
?FBC1 
?FDOC 
FFS8 


SETCH 
sToR2 
SCRN2 
STOR40 
ESCRET 
LCB1 
PSETUP2 
B. TABLE 
F. BASCALC 
RDKEY 
IORTS 


CED? 
CFOO 
CF2A 
CF4E 
CF78 
cFc2 
CFDF 
CFF? 
Fc22 
FD29 


#% SUCCESSFUL ASSEMBLY : = 
#% ASSEMBLER CREATED ON OS-JAN-82 000004 
## TOTAL LINES ASSEMBLED 2421 

## FREE SPACE PAGE COUNT 


aon 


EQUATES 
BFUNC 
C3SPACE 
C8SPACE 
BPRINT 
BINPUT 
PINIT 
PREAD 
PWRITE 
SUBS1 
SUBS2 
SUBS3 


SETCHRTS CEDD 
SEV CFOL 
STORSO CF37 
STPKEXIT cFS2 
COPYROM CF9S 
LCB1ROM CFCS 
PSETUPRET CFEA 
WNDTAB ?CFFD 
F. VTAB FC24 
FUNCEXIT FES? 
NO ERRORS 


4g 


Monitor ROM Listings 


INVERT 
PICK 
SCRN3 
ESCON 
COPYROM2 
COPYRET 
F. TABLE 
ZZEND 

F, VTABZ 
SETKBD 


CEF2 
CFO6 
CF40 
CF65 
CFB3 
cFc8 
CFFO 
FBB3 
FC7S 
FE93 





STORCHAR 
SCREENIT 
SCRN40 
ESCOFF 
LCB2ROM 
PSETUP 
PLUSMINUS1 
FEVERSION 
SNIFFIRG@ 
SETVID 


@aPple computer 
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TLX 171576 
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